home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Software Contest 3 / FM Towns Software Contest 3.iso / exp / n_flight / no1 / man.bas next >
BASIC Source File  |  1994-01-07  |  91KB  |  2,503 lines
  1. 10000 '＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
  2. 10010 '＊　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　＊
  3. 10020 '＊　　　　　　９２’旺文社パソコンソフトコンテスト　　　　　　　＊
  4. 10030 '＊　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　＊
  5. 10040 '＊　　　　   　　『　Ｎｉｇｈｔ　Ｆｉｇｈｔ　』　　 　　　　　　＊
  6. 10050 '＊　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　＊
  7. 10060 '＊　　　　　　　 　愛光学園パソコン部　森川浩　　　　　 　　　　＊
  8. 10070 '＊　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　＊
  9. 10080 '＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
  10. 10090 '
  11. 10100 '
  12. 10110 '
  13. 10120 '特殊機能
  14. 10130 '
  15. 10140 '
  16. 10150 '
  17. 10160 CLS
  18. 10170 IF PTRIG(1)=0 THEN W=20:TOKU=0:TOKUU=0:TL=1:PLON=1:MUTEKI=0:DSD=0:ON ERROR GOTO *ERA:LOAD@"B:FM_1.FMB":GOTO 10260
  19. 10180 'IF PTRIG(1)=0 THEN W=20:TOKU=0:TOKUU=0:TL=1:PLON=1:MUTEKI=0:DSD=0:ON ERROR GOTO *ERA:STOP OFF:LOAD@"B:FM_1.FMB":GOTO 10240
  20. 10190 TOKU=1:TOKUU=1
  21. 10200 INPUT "ウェイト";W
  22. 10210 INPUT "コンパイラバージョン？(Y-1;N-0)",O:IF O=1 THEN LOAD@"B:FM_1.FMB"
  23. 10220 INPUT "タイトル必要？(Y-1;N-0)",TL
  24. 10230 INPUT "スプライト？(Y-1;N-0)";DSD
  25. 10240 INPUT "ＳＴＯＰ　ＯＦＦ？(Y-1;N-0)",O:IF O=1 THEN STOP OFF
  26. 10250 INPUT "ＯＮ　ＥＲＲＯＲ？(Y-1;N-0)";O:IF O=1 THEN ON ERROR GOTO *ERA
  27. 10260 CLS:SCREEN@1:SPRITE ON
  28. 10270 RANDOMIZE VAL(RIGHT$(TIME$,2))
  29. 10280 '
  30. 10290 '
  31. 10300 '
  32. 10310 '初期設定
  33. 10320 '
  34. 10330 '
  35. 10340 '
  36. 10350 DIM P1%(10000),P2%(10000),P3%(10000),P4%(10000),P5%(10000),P6%(10000)
  37. 10360 DIM P7%(10000),P8%(10000),P9%(10000),PA%(10000),PB%(10000),PC%(10000)
  38. 10370 DIM PAL%(15),D%(63),COL%(36*64+16),FL%(16,15),FLL%(15,15),FJ%(15,15)
  39. 10380 DIM FC%(16,15),FG%(15,15),FX%(130,9),FY%(130,9),TX%(80,40),TY%(80,40)
  40. 10390 DIM S%(21759),EJSN(13),B(30),A$(30),ASB(20),TPD%(2,15)
  41. 10400 PLAY OFF:PLAY ON
  42. 10410 '
  43. 10420 '
  44. 10430 '
  45. 10440 '
  46. 10450 'サンプリングデータをロード
  47. 10460 '
  48. 10470 '
  49. 10480 '
  50. 10490 GOSUB *JUM1
  51. 10500 LOAD@"B:\SAMPLING\PON.SND"     ,P1%
  52. 10510 LOAD@"B:\SAMPLING\BOMB.SND"    ,P2%
  53. 10520 LOAD@"B:\SAMPLING\PILOLI.SND"  ,P3%
  54. 10530 LOAD@"B:\SAMPLING\JUMON.SND"   ,P4%
  55. 10540 LOAD@"B:\SAMPLING\KYA.SND"     ,P5%
  56. 10550 LOAD@"B:\SAMPLING\AU.SND"      ,P6%
  57. 10560 LOAD@"B:\SAMPLING\HANEKAE.SND" ,P7%
  58. 10570 LOAD@"B:\SAMPLING\WARE.SND"    ,P8%
  59. 10580 LOAD@"B:\SAMPLING\ESTEDOLJ.SND",P9%
  60. 10590 LOAD@"B:\SAMPLING\SUKA.SND"    ,PA%
  61. 10600 LOAD@"B:\SAMPLING\GA-.SND"     ,PB%
  62. 10610 LOAD@"B:\SAMPLING\U.SND"       ,PC%
  63. 10620 LOAD@"B:\GETPUT\GLHA1.SHD"     ,S%
  64. 10630 GOSUB *JUM2
  65. 10640 '
  66. 10650 '
  67. 10660 '
  68. 10670 'スプライトの定義
  69. 10680 '
  70. 10690 '
  71. 10700 '
  72. 10710 RESTORE 10900
  73. 10720 IF DSD=1 THEN 11280
  74. 10730 GOSUB *JUM1
  75. 10740 DEF SPRITE 99,0
  76. 10750 FOR J=1 TO 19
  77. 10760   READ A$,DN,DS,DP
  78. 10770   A$="B:\SPRITE\"+A$+".SPR"
  79. 10780   LOAD@ A$,COL%
  80. 10790   FOR I=0 TO 15
  81. 10800     PAL%(I)=COL%(I)
  82. 10810   NEXT
  83. 10820   DEF SPRITE 2,DP,PAL%
  84. 10830   FOR I=0 TO DN
  85. 10840     FOR II=0 TO 63
  86. 10850       D%(II)=COL%(I*64+II+16)
  87. 10860     NEXT
  88. 10870     DEF SPRITE 0,DS+I,D%,0
  89. 10880   NEXT
  90. 10890 NEXT
  91. 10900 DATA MAN,11,0,0,       FLOOR,10,12,1,    PAPID,30,51,5, NUM1,35,96,3
  92. 10910 DATA HIME,9,82,2,      ITEM,5,205,10,    KEY,1,92,12,   ONBU,23,27,4
  93. 10920 DATA ESTEDLE1,21,164,9,ESTEDLE2,3,200,15,ITEM1,3,188,11,ITEM2,1,192,13
  94. 10930 DATA ITEM3,2,194,14,   HOUKI,4,213,20,   SUKA,1,211,16, PANIUS2,23,224,28
  95. 10940 DATA TAMA,3,248,29,    MANE,0,94,0,      ITEMIN,0,252,10
  96. 10950 '
  97. 10960 FOR I=0 TO 31
  98. 10970   PAL%(0)=0
  99. 10980   PAL%(1)=32*I
  100. 10990   PAL%(2)=32*INT(I/2.2!)
  101. 11000   FOR IM=3 TO 15
  102. 11010     PAL%(IM)=0
  103. 11020   NEXT
  104. 11030   DEF SPRITE 2,I+200,PAL%
  105. 11040 NEXT
  106. 11050 '
  107. 11060 '
  108. 11070 '特殊パレット定義
  109. 11080 '
  110. 11090 '
  111. 11100 '
  112. 11110 RESTORE 11210
  113. 11120 FOR I=0 TO 6
  114. 11130   READ P,FA$
  115. 11140   LOAD@"B:\PALETTE\"+FA$+".PAL",TPD%
  116. 11150   FOR II=0 TO 15
  117. 11160     PAL%(II)=TPD%(2,II)*1024+TPD%(1,II)*32+TPD%(0,II)
  118. 11170   NEXT
  119. 11180   DEF SPRITE 2,P,PAL%
  120. 11190 NEXT
  121. 11200 '
  122. 11210 DATA 25,MUTEKI1 ,26,MUTEKI2 , 6,PAPIDR ,7,PAPIDW
  123. 11220 DATA 27,WHITE   ,30,MRED    ,31,PRED
  124. 11230 GOSUB *JUM2
  125. 11240 '
  126. 11250 '
  127. 11260 '
  128. 11270 '
  129. 11280 IF TL=1 THEN GOTO *TITLE
  130. 11290 '
  131. 11300 '
  132. 11310 '初期データ設定０
  133. 11320 '
  134. 11330 '
  135. 11340 MK(0)= 0:MK(1)= 1:MK(2)= 0:MK(3)=-1
  136. 11350 MK(4)= 0:MK(5)= 1:MK(6)= 0:MK(7)= 0
  137. 11360 MR(1)= 4:MR(3)= 7:MR(5)= 1:MR(7)=10
  138. 11370 MR(9)= 1
  139. 11380 MP(0)= 1:MP(1)= 2:MP(2)= 0:MP(3)= 3
  140. 11390 ML(1)= 0:ML(3)= 1:ML(5)= 0:ML(7)=-1
  141. 11400 ML(2)=-1:ML(4)= 0:ML(6)= 1:ML(8)= 0
  142. 11410 SK(0)= 0:SK(1)= 6:SK(2)= 3:SK(3)= 5
  143. 11420 PHA (0)=  1:PHA (1)=  2:PHA (2)=  1
  144. 11430 EJSN(1)= -3:EJSN(2)= -2:EJSN(3)= -1:EJSN(4)=0:EJSN( 5)=-1
  145. 11440 EJSN(6)=  0:EJSN(7)=  0:EJSN(8)=  0:EJSN(9)=1:EJSN(10)= 0
  146. 11450 EJSN(11)= 1:EJSN(12)= 2:EJSN(13)= 3:EDS=4
  147. 11460 IPD(1)= 12:IPD(2)= 12:IPD(3)= 11:IPD(4)= 11:IPD( 5)=11
  148. 11470 IPD(6)= 11:IPD(7)= 13:IPD(8)= 13:IPD(9)= 14:IPD(10)=14
  149. 11480 IND(1)= 92:IND(2)= 93:IND(3)=188:IND(4)=189:IND( 5)=190
  150. 11490 IND(6)=191:IND(7)=192:IND(8)=193:IND(9)=194:IND(10)=195
  151. 11500 IZD(0)=205:IZD(1)=207:IZD(4)=209
  152. 11510 SJ(0)=213 :SJ(1)=214 :SJ(2)=215 :SJ(3)=216 :SJ(4)=215
  153. 11520 SJ(5)=214 :SJ(6)=213
  154. 11530 MTT=10:TAT=10:TIMNUP=50
  155. 11540 '
  156. 11550 '
  157. 11560 '初期データ設定１
  158. 11570 '
  159. 11580 '
  160. 11590 PO&=10000000:HS=2:H2S=4:HSHI=0:BEAM=0:OJ=1:HALE=4:FTE=0:MEN=1
  161. 11600 FOR I=0 TO 20
  162. 11610   ASB(I)=0
  163. 11620 NEXT
  164. 11630 MAN=0
  165. 11640 IF TOKU=0 THEN 11710 ELSE BGM 0
  166. 11650 LINE(100,100)-(148,116),PSET,0,BF:SYMBOL(100,100),AKCNV$(STR$(MEN)),1,1,7
  167. 11660 A=PTRIG(1):IF A=0 THEN AA=0:GOTO 11660
  168. 11670 IF A=1 AND AA=0 THEN MEN=MEN+1:AA=1:PLAY "V8L64@30O4CG>C":IF MEN=12 THEN MEN=1:GOTO 11650 ELSE 11650
  169. 11680 IF A=2 THEN AA=0:GOTO 11710
  170. 11690 IF A=3 THEN AA=0:GOTO 11710
  171. 11700 GOTO 11660
  172. 11710 BGM 1:IF MEN=11 AND TOKUU=1 THEN TOKUU=0:DEF SPRITE 1,80,(240,210),188,1,1,0,11:MAN=1:ASB(1)=3
  173. 11720 '
  174. 11730 '
  175. 11740 '初期データ設定２
  176. 11750 '
  177. 11760 '
  178. 11770 MIX=0:MIY=1:MI=0:MT=0:TM=0:MU=7:MWX%=16*15:MWY%=6*16:R=10:MCX=15:MCY=6:FBX=-1:FALL=0:FCC=-1:FCCK=0:IT=0:PL=0:PB=1:TANMA=0:SH=0:SWO=0:PASO=0:ST=0:MUTEKI=0:SHST=0
  179. 11780 PLP=0:PPLON=1:PLON=1:MAS=1:ISUKA=0:SAIG=0:TAHA=0:ENDE=0:PANI=0:SEH=0
  180. 11790 IF MEN=11 THEN PLON=5:PLP=0
  181. 11800 FOR I=0 TO 3:IFA(I)=0:NEXT:IFO=0
  182. 11810 ERASE FX%,FY%:DIM FX%(130,9),FY%(130,9)
  183. 11820 DEF SPRITE 1,40,(16*15,6*16),1,1,1,0,0
  184. 11830 '
  185. 11840 '
  186. 11850 '面の最初
  187. 11860 '
  188. 11870 '
  189. 11880 DEF SPRITE 1,38,(0,0),0,1,1,0,1
  190. 11890 DEF SPRITE 1,39,(0,0),0,1,1,0,1
  191. 11900 DEF SPRITE 1,180,(0,0),0,1,1,0,1
  192. 11910 DEF SPRITE 1,41,(0,0),0,1,1,0,1
  193. 11920 FOR I=54 TO 59
  194. 11930   DEF SPRITE 1,I,(0,0),1,1,1,0,1
  195. 11940 NEXT
  196. 11950 FOR I=0 TO 39
  197. 11960   DEF SPRITE 1,I,(0,0),1,1,1,0,1
  198. 11970 NEXT
  199. 11980 '
  200. 11990 CLS
  201. 12000 LX=90     :LY=80 :LS=0 :A$="STAGE":GOSUB *WORDSPR
  202. 12010 IF MEN>=10 THEN LX=90+16*4:LY=80 :LS=5 :A&=MEN+100:GOSUB *NUMSPR
  203. 12020 IF MEN<=9  THEN LX=90+16*4:LY=80 :LS=5 :A&=MEN+10 :GOSUB *NUMSPR
  204. 12030 LX=90     :LY=100:LS=7 :A$="LEFT" :GOSUB *WORDSPR
  205. 12040 LX=90+16*4:LY=100:LS=11:A&=HALE+11:GOSUB *NUMSPR
  206. 12050 '
  207. 12060 CDS=0
  208. 12070 '
  209. 12080 '
  210. 12090 '床をスプライトにする
  211. 12100 '
  212. 12110 '
  213. 12120 FOR Y=0 TO 15:FOR X=0 TO 19:DEF SPRITE 1,516+X-Y*20,(0,0),0,1,1,0,0:NEXT:NEXT
  214. 12130 MIP$="B:\STAGE\STAGE"+RIGHT$(HEX$(MEN),1)+".MAP":LOAD@ MIP$,FLL%
  215. 12140 FOR Y=0 TO 15:FOR X=0 TO 15 
  216. 12150   A=FLL%(X,Y):FL%(X,Y)=FLL%(X,Y)
  217. 12160   IF A=1 THEN  DEF SPRITE 1,516-Y*20+X,(X*16,Y*16),12,1,1,0,1
  218. 12170   IF A=2 THEN  DEF SPRITE 1,516-Y*20+X,(X*16,Y*16),13,1,1,0,1
  219. 12180   IF A=3 THEN  DEF SPRITE 1,516-Y*20+X,(X*16,Y*16),14,1,1,0,1
  220. 12190   FJ%(X,Y)=0
  221. 12200 NEXT:NEXT
  222. 12210 '
  223. 12220 '
  224. 12230 '
  225. 12240 GOSUB *NUMBER:GOTO 12490
  226. 12250 '
  227. 12260 '床に番号をつける 
  228. 12270 '
  229. 12280 '
  230. 12290 *NUMBER
  231. 12300 FOR Y=0 TO 15:FOR X=0 TO 15:FG%(X,Y)=0:FC%(X,Y)=0:NEXT:NEXT
  232. 12310 FC%(15,6)=1:FG%(15,6)=1:TX%(1,1)=15:TY%(1,1)=6:TTV=1
  233. 12320 FOR I=2 TO 80:IF TTV=0 THEN 12450
  234. 12330   TV=TTV:TTV=0
  235. 12340   FOR T2=1 TO TV
  236. 12350     TX=TX%(I-1,T2):TY=TY%(I-1,T2)
  237. 12360     FOR T1=0 TO 3
  238. 12370       TAX=TX+MK(T1):TAY=TY+MK(T1+3)
  239. 12380       IF FL%(TAX,TAY)=0 THEN 12430 
  240. 12390       IF FC%(TAX,TAY)=1 THEN 12430 
  241. 12400       TTV=TTV+1
  242. 12410       TX%(I,TTV)=TAX:TY%(I,TTV)=TAY
  243. 12420       FC%(TAX,TAY)=1:FG%(TAX,TAY)=I
  244. 12430     NEXT
  245. 12440   NEXT
  246. 12450 NEXT
  247. 12460 FOR Y=0 TO 15:FOR X=0 TO 16:FC%(X,Y)=0:NEXT:NEXT
  248. 12470 FU=0
  249. 12480 RETURN
  250. 12490 '
  251. 12500 '
  252. 12510 '床の色を決め表示           
  253. 12520 '
  254. 12530 '
  255. 12540 WAIT 10:CLS:FOR I=0 TO 39:SPRITE 0,I,0:NEXT
  256. 12550 ON MEN GOSUB 12560,12570,12580,12590,12600,12610,12620,12630,12640,12650,12660:GOTO 12670
  257. 12560 RESTORE 29110 :K1=31:K2=16:K3=19:RETURN
  258. 12570 RESTORE 29640 :K1=26:K2=20:K3=31:RETURN
  259. 12580 RESTORE 30160 :K1=28:K2=26:K3=17:RETURN
  260. 12590 RESTORE 30790 :K1=31:K2=31:K3=20:RETURN
  261. 12600 RESTORE 31370 :K1=15:K2=31:K3=15:RETURN
  262. 12610 RESTORE 31960 :K1=15:K2=5 :K3= 5:RETURN
  263. 12620 RESTORE 32470 :K1= 3:K2= 3:K3= 8:RETURN
  264. 12630 RESTORE 33040 :K1= 0:K2=20:K3= 0:RETURN
  265. 12640 RESTORE 33660 :K1=20:K2=20:K3=20:RETURN
  266. 12650 RESTORE 34160 :K1= 9:K2= 9:K3= 9:RETURN
  267. 12660 RESTORE 34770 :K1=31:K2=31:K3=31:RETURN
  268. 12670 PAL%(2)=K1+K2*32+K3*32*32
  269. 12680 PAL%(4)=INT(K1*.8!)+INT(K2*.8!)*32+INT(K3*.8!)*32*32
  270. 12690 PAL%(3)=INT(K1*.6!)+INT(K2*.6!)*32+INT(K3*.6!)*32*32
  271. 12700 PAL%(0)=0
  272. 12710 PAL%(1)=32767
  273. 12720 PAL%(5)=16+16*32+16*32*32
  274. 12730 PAL%(6)=24+24*32+24*32*32
  275. 12740 PAL%(7)=20+20*32+20*32*32
  276. 12750 PAL%(8)=31+24*32+16*32*32
  277. 12760 IF MEN=11 THEN PAL%(2)=1+1*32+1*32*32
  278. 12770 IF MEN=11 THEN PAL%(6)=1+1*32+1*32*32
  279. 12780 IF MEN=11 THEN PAL%(7)=10+10*32+10*32*32
  280. 12790 IF MEN=11 THEN PAL%(5)=1+1*32+1*32*32
  281. 12800 FOR I=9 TO 15:PAL%(I)=0:NEXT
  282. 12810 DEF SPRITE 2,1,PAL%
  283. 12820 FOR Y=0 TO 15:FOR X=0 TO 15
  284. 12830   IF FL%(X,Y)<>0 THEN SPRITE 0,516-Y*20+X,1
  285. 12840 NEXT:NEXT
  286. 12850 '
  287. 12860 '
  288. 12870 '背景を面ごとに決定して書く    
  289. 12880 '
  290. 12890 '
  291. 12900 OUT&H440,17:OUT&H443,0
  292. 12910 READ HAS
  293. 12920 ON HAS GOTO 12980
  294. 12930 '
  295. 12940 '
  296. 12950 '背景
  297. 12960 '
  298. 12970 '
  299. 12980 FOR Y=0 TO 31
  300. 12990 LINE(0,Y*7.5!)-(319,(Y+1)*7.5!),PSET,[0,0,Y*5],BF
  301. 13000 NEXT
  302. 13010 PASTEL 40
  303. 13020 GOTO 13080
  304. 13030 '
  305. 13040 '
  306. 13050 'ノンスプライト領域の背景
  307. 13060 '
  308. 13070 '
  309. 13080 LINE(256,0)-(319,239),PSET,[0,80,0],BF
  310. 13090 FOR I=256 TO 319 STEP 8:LINE(I,0)-(I,3),PSET,[64,128,0]:NEXT
  311. 13100 FOR I=260 TO 319 STEP 8:LINE(I,4)-(I,7),PSET,[64,128,0]:NEXT
  312. 13110 LINE(256,0)-(319,0),PSET,[64,128,0]:LINE(256,4)-(319,4),PSET,[64,128,0]
  313. 13120 LINE(256,0)-STEP(4,6),PSET,[188,188,0],BF:LINE(257,1)-STEP(3,5),PSET,[94,188,0],BF
  314. 13130 GET@A(256,0)-(319,7),COL%
  315. 13140 FOR Y=8 TO 240 STEP 8:PUT@A(256,Y)-(319,7+Y),COL%,PSET:NEXT
  316. 13150 GET@A(264,0)-(312,15),COL%
  317. 13160 PUT@A(256,16*6)-(304,15+16*6),COL%,PSET
  318. 13170 '
  319. 13180 ' 
  320. 13190 '残り時間設定    
  321. 13200 '
  322. 13210 '
  323. 13220 READ TIMN:TIMN=TIMN+1000
  324. 13230 '
  325. 13240 '
  326. 13250 '画面上の各種文字を設定 
  327. 13260 '
  328. 13270 '
  329. 13280 LX=30     :LY=20 :LS=0 :A$="TIME" :GOSUB *WORDSPR
  330. 13290 LX=30+8*10:LY=20 :LS=7 :A$="SCORE":GOSUB *WORDSPR
  331. 13300 LX=30     :LY=210:LS=19:A$="FLOOR":GOSUB *WORDSPR
  332. 13310 LX=30+8*5 :LY=20 :LS=4 :A&=TIMN   :GOSUB *NUMSPR
  333. 13320 LX=30+8*16:LY=20 :LS=12:A&=PO&    :GOSUB *NUMSPR
  334. 13330 LX=30+8*6 :LY=210:LS=24:A&=MEN+100:GOSUB *NUMSPR
  335. 13340 LX=120    :LY=108:LS=26:A$="PAUSE":GOSUB *WORDSPR
  336. 13350 '
  337. 13360 '
  338. 13370 '姫のデータ入力   
  339. 13380 '
  340. 13390 '
  341. 13400 READ HCX,HCY,HSHU,HMU:HJ=1
  342. 13410 DEF SPRITE 1,70,(HCX*16,HCY*16),83+HSHU*3,1,1,0,2:SPRITE 0,70,1
  343. 13420 DEF SPRITE 1,69,(HCX*16,HCY*16),90,1,1,0,2:SPRITE 0,69,1
  344. 13430 IF OJ=2 THEN SPRITE 1,69,91
  345. 13440 '
  346. 13450 '
  347. 13460 '宝箱のデータ入力
  348. 13470 '
  349. 13480 '
  350. 13490 IF FTE<>1 THEN 13600
  351. 13500 FTE=0:READ QA
  352. 13510 IF QA<>0 THEN FOR I=1 TO QA*4:READ QB:NEXT
  353. 13520 FOR I=1 TO 4:READ QB:NEXT
  354. 13530 IF IN=0 THEN 13570
  355. 13540 FOR I=1 TO IN
  356. 13550   IF IZ(I)<5 THEN SPRITE 0,75+I,1
  357. 13560 NEXT
  358. 13570 IF IZ(0)=2 THEN SPRITE 0,79,1
  359. 13580 GOTO 13810
  360. 13590 '
  361. 13600 READ IN:IF IN=0 THEN 13670
  362. 13610 FOR I=1 TO IN
  363. 13620   READ IZ(I),INA(I),ITX(I),ITY(I)
  364. 13630   ITX(I)=ITX(I)*16:ITY(I)=ITY(I)*16
  365. 13640   DEF SPRITE 1,75+I,(ITX(I),ITY(I)),IZD(IZ(I)),1,1,0,10
  366. 13650   SPRITE 0,75+I,1
  367. 13660 NEXT
  368. 13670 '
  369. 13680 '
  370. 13690 '鍵のデータ入力
  371. 13700 '
  372. 13710 '
  373. 13720 READ IZ(0),INA(0),ITX(0),ITY(0)
  374. 13730 ITX(0)=ITX(0)*16:ITY(0)=ITY(0)*16
  375. 13740 DEF SPRITE 1,79,(ITX(0),ITY(0)),92,1,1,0,12
  376. 13750 SPRITE 0,79,1
  377. 13760 '
  378. 13770 '
  379. 13780 'パピッドのデータ入力
  380. 13790 '
  381. 13800 '
  382. 13810 READ PN:IF PN=0 THEN 13880
  383. 13820 READ PES1,PES2,PES3
  384. 13830 FOR I=0 TO PN-1
  385. 13840 READ PK(I),PM(I),PMA(I),PMX(I),PMY(I),PNA(I)
  386. 13850 PWX(I)=PMX(I)*16:PWY(I)=PMY(I)*16:PJ(I)=5:PB(I)=1:PMAM(I)=0:PES(I,1)=0:PES(I,2)=0:PJUJ(I)=0
  387. 13860 DEF SPRITE 1,60+I,(PWX(I),PWY(I)),71,1,1,0,PK(I)+5
  388. 13870 NEXT
  389. 13880 '
  390. 13890 '
  391. 13900 'エステドルのデータ入力
  392. 13910 '
  393. 13920 '
  394. 13930 READ EN:IF EN=0 THEN 14000
  395. 13940 READ EES1,EES2,EES3
  396. 13950 FOR I=0 TO EN-1
  397. 13960 READ ECX(I),ECY(I),ENA(I)
  398. 13970 EMX(I)=ECX(I)*16:EMY(I)=ECY(I)*16:EJ(I)=0:EIX(I)=0:EIY(I)=-1:ER(I)=165
  399. 13980 DEF SPRITE 1,61+PN+I,(EMX(I),EMY(I)),165,1,1,0,9
  400. 13990 NEXT
  401. 14000 '
  402. 14010 '
  403. 14020 DEF SPRITE 1,68,(256-16,200-16),196,1,1,0,14
  404. 14030 '
  405. 14040 IF MAN=0 THEN 14090
  406. 14050 FOR I=1 TO MAN
  407. 14060   SPRITE 0,79+I,1
  408. 14070 NEXT
  409. 14080 SPRITE 0,68,1
  410. 14090 '
  411. 14100 TIMNJUST=TIME
  412. 14110 '
  413. 14120 '
  414. 14130 'メインルーチン
  415. 14140 '
  416. 14150 '
  417. 14160 SPRITE 0,40,1
  418. 14170 IF PLON=1 THEN GOSUB *MUSICNORMAL
  419. 14180 IF PLON=5 THEN GOSUB *MUSICLAST
  420. 14190 FOR UZ=0 TO 2
  421. 14200   FOR WW=0 TO W
  422. 14210     GOSUB *TAMA
  423. 14220   NEXT
  424. 14230   GOSUB *MAN
  425. 14240   GOSUB *FLOOR
  426. 14250   GOSUB *PAPID
  427. 14260   GOSUB *ESTEDLE
  428. 14270   GOSUB *TOBUITEM
  429. 14280   GOSUB *UGOKUITEM
  430. 14290   GOSUB *TAKARAFHN
  431. 14300   GOSUB *TAKARASUKA
  432. 14310   GOSUB *SHINU
  433. 14320   GOSUB *TAMATOBI
  434. 14330   GOSUB *CLEAR
  435. 14340   GOSUB *PANIUS
  436. 14350 NEXT
  437. 14360 GOSUB *FALLNOW
  438. 14370 IF CDS=4 THEN GOTO *C4
  439. 14380 IF ENDE=1 THEN ENDE=0:GOTO *ENDING
  440. 14390 IF SH=6 THEN *S6
  441. 14400 IF SH=7 THEN *S7
  442. 14410 IF SHS=1 THEN SHS=0:GOTO *S6
  443. 14420 GOSUB *MOVEFLOOR
  444. 14430 GOSUB *FALLFLOOR
  445. 14440 '
  446. 14450 '
  447. 14460 '音楽処理
  448. 14470 '
  449. 14480 '
  450. 14490 IF PLON=7 THEN IF PLAY(1)=PL THEN PL=PL+1:ON PL-PLP*4 GOSUB 28170,28180,28190,28200,28210,28220,28230,28250,28260,28270,28280,28290,28300,28310,28320:IF PL>11 THEN IF (PL-11) MOD 4=0 THEN PLP=PLP+1
  451. 14500 IF PLON=6 THEN IF PLAY(1)=PL THEN PL=PL+1:ON PL-PLP*8 GOSUB 27250,27270,27280,27290,27300,27310,27320,27330,27340,27350:IF PL>2 THEN IF (PL-2) MOD 8=0 THEN PLP=PLP+1 
  452. 14510 IF PLON=5 THEN IF PLAY(1)=PL THEN PL=PL+1:ON PL-PLP*9 GOSUB 27080,27090,27100,27110,27120,27130,27140,27150,27160,27170,27090:IF PL>2 THEN IF (PL-2) MOD 9=0 THEN PLP=PLP+1
  453. 14520 IF PLON=4 THEN IF PLAY(1)=PL THEN PL=0:GOSUB 27820
  454. 14530 IF PLON=3 THEN IF PLAY(1)=PL THEN PL=PL+1:ON PL-PLP*4 GOSUB 27740,27750,27760,27720:IF PL MOD 4=0 THEN PLP=PLP+1
  455. 14540 IF PLON=2 THEN IF PLAY(1)=PL THEN PL=PL+1:ON PL-PLP*8 GOSUB 28430,28440,28620,28630,28640,28650,28660,28670,28680,28690,28620:IF PL>4 THEN IF (PL-3) MOD 8=0 THEN PLP=PLP+1
  456. 14550 IF PLON=1 THEN IF PLAY(1)=PL THEN PL=PL+1:ON PL-PLP*13 GOSUB 27540,27550,27560,27570,27580,27590,27600,27610,27620,27630,27640,27650,27420:IF PL MOD 13=0 THEN PLP=PLP+1
  457. 14560 '
  458. 14570 GOTO 14190
  459. 14580 '
  460. 14590 '
  461. 14600 'ハンスを操作（ＰＡＤ）
  462. 14610 '
  463. 14620 '
  464. 14630 *MAN
  465. 14640 IF SH>=1 THEN RETURN
  466. 14650 IF FALL<>0 THEN RETURN
  467. 14660 IF CDS<>0 THEN RETURN
  468. 14670 IF MUTEKI>0 THEN 14840
  469. 14680 IF PN=0 THEN 14730
  470. 14690 FOR IM=0 TO PN-1
  471. 14700   IF PJ(IM)<>0 THEN 14720
  472. 14710   IF ABS(PWX(IM)-MWX%)<12 AND ABS(PWY(IM)-MWY%)<12 THEN SWO=1:SWOT=IM:SH=1
  473. 14720 NEXT
  474. 14730 IF EN=0 THEN 14780
  475. 14740 FOR IM=0 TO EN-1
  476. 14750   IF EJ(IM)<4 OR EJ(IM)>6 THEN 14770
  477. 14760   IF ABS(EMX(IM)-MWX%)<12 AND ABS(EMY(IM)-MWY%)<12 THEN SWO=2:SWOT=IM:SH=1
  478. 14770 NEXT
  479. 14780 IF PN=0 THEN 14830
  480. 14790 FOR IM=0 TO PN-1
  481. 14800   IF PJUJ(IM)=0 THEN 14820
  482. 14810   IF ABS(PJUIX(IM)-MWX%)<16 AND ABS(PJUIY(IM)-MWY%)<16 THEN IF HSHI=0 THEN SH=1:RETURN ELSE GOSUB *SH:IF SH=1 THEN RETURN ELSE PJUJ(IM)=3:PJUIX(IM)=0:PJUIY(IM)=0:PCMPLAY P7%,10:LS=12:PO&=PO&+20:A&=PO&:GOSUB *NUMSPRHEN
  483. 14820 NEXT
  484. 14830 IF SH=1 THEN RETURN
  485. 14840 A=PAD(1):IF A=0 THEN IF FL%(MCX,MCY)=0 THEN *FALL:RETURN
  486. 14850 IF PTRIG(1)=2 THEN A=0
  487. 14860 IF MI=1 THEN *M1
  488. 14870 IF TM>=1 THEN *M2
  489. 14880 IF A=3 AND MCX=15 THEN IF HJ=2 THEN CDS=1 ELSE RETURN
  490. 14890 IF A MOD 2=0 THEN IF S<>0 THEN SPRITE 1,40,R:S=0:RETURN ELSE RETURN
  491. 14900 IF A=MU THEN MI=1:MIX=ML(A):MIY=ML(A+1):GOSUB *WCANMOV:IF STU=1 THEN STU=0:MI=0:RETURN ELSE *M5 ELSE *M4
  492. 14910 *M2
  493. 14920 IF A MOD 2=0 THEN TM=0:MI=0:RETURN
  494. 14930 IF A<>MU THEN *M4
  495. 14940 TM=TM+1:IF TM=5 THEN TM=0:MI=0:RETURN
  496. 14950 RETURN
  497. 14960 *M1
  498. 14970 IF ABS(A-MU)=4 THEN MU=A:R=MR(A)*HJ+27*(HJ-1):RR=R:MT=1-MT:SPRITE 1,40,R:MIX=-MIX:MIY=-MIY
  499. 14980 *M5
  500. 14990 SPRITE 6,40,MIX*HS,MIY*HS:MWX%=MWX%+MIX*HS:MWY%=MWY%+MIY*HS
  501. 15000 S=S+.125!:IF S=4 THEN S=0
  502. 15010 SPRITE 1,40,R+MK(S)*HJ
  503. 15020 IF MWX% MOD 16<>0 OR MWY% MOD 16<>0 THEN 15050
  504. 15030 MI=0:IF MT=0 THEN MCX=MCX+MIX:MCY=MCY+MIY:GOSUB *ITEM:GOSUB *HIME ELSE MT=0
  505. 15040 IF FL%(MCX,MCY)=0 THEN IF MCX<>16 THEN *FALL ELSE RETURN
  506. 15050 RETURN
  507. 15060 *M4
  508. 15070 R=MR(A)*HJ+27*(HJ-1):RR=R:TM=1:SPRITE 1,40,R:MU=A:MI=0:S=0
  509. 15080 RETURN
  510. 15090 '
  511. 15100 '
  512. 15110 'ハンスが落ちる
  513. 15120 '
  514. 15130 '
  515. 15140 *FALL
  516. 15150 FALL=1:RETURN
  517. 15160 *FALLNOW
  518. 15170 IF FALL=0 THEN RETURN
  519. 15180 IF FALL=1 THEN DEF SPRITE 1,800,(MWX%,MWY%),MR(MU)*HJ+(HJ-1)*27,1,HJ,0,(HJ-1)*4:SPRITE 0,800,1:SPRITE 0,40,0:FALL=2:FALLS=0:RETURN
  520. 15190 IF FALL=2 THEN SPRITE 6,800,0,FALLS:FALLS=FALLS+.5!:IF SPRITE (800,7)>230 THEN SPRITE 0,800,0:SHS=1:FALL=0:RETURN ELSE RETURN
  521. 15200 '
  522. 15210 '
  523. 15220 'ハンスを操作（ＰＴＲＩＧ）
  524. 15230 '
  525. 15240 '
  526. 15250 *FLOOR
  527. 15260 IF CDS<>0 THEN RETURN
  528. 15270 AAA=AA
  529. 15280 A=PTRIG(1)
  530. 15290 IF FALL<>0 THEN RETURN
  531. 15300 AA=PAD(1)
  532. 15310   IF A<>4 THEN PFS=0:GOTO 15390
  533. 15320   IF PFS=1 THEN 15390
  534. 15330   PLAY STOP:FOR IM=26 TO 30:SPRITE 0,IM,1:NEXT
  535. 15340   A=PTRIG(1)
  536. 15350   IF A=4 THEN 15340
  537. 15360   A=PTRIG(1)
  538. 15370   IF A<>4 THEN 15360
  539. 15380   PLAY ON:PFS=1:FOR IM=26 TO 30:SPRITE 0,IM,0:NEXT:TIMNJUST=TIME:TIMN=TIMN-1
  540. 15390 IF A=2 AND MAN>=1 THEN A=PAD(1):IF A=0 THEN 15420 ELSE 15400 ELSE 15420
  541. 15400 IF A=3 AND MAS>=2 AND AAA=0 THEN MAS=MAS-1:SPRITE 6,68, 16,0:GOTO 15420
  542. 15410 IF A=7 AND MAS<MAN AND AAA=0 THEN MAS=MAS+1:SPRITE 6,68,-16,0:GOTO 15420
  543. 15420 IF MI=1 THEN RETURN
  544. 15430 IF PTRIG(1)<>3 THEN ITO=0
  545. 15440 IF UJ=0 AND UI=0 AND ISUKA=0 AND PTRIG(1)=3 AND MAN>=1 AND IBO=0 AND ITO=0 THEN UU=0:GOSUB *USEITEM:ITO=1
  546. 15450 A=PTRIG(1)
  547. 15460 IF A<>1 THEN RETURN 
  548. 15470 IF SAIG=0 THEN 15520
  549. 15480 IF SAIG=2 THEN RETURN
  550. 15490 DEF SPRITE 1,38,(MWX%,MWY%),(MU+1)/2+247,1,1,0,29:SPRITE 0,38,1
  551. 15500 SAIG=2:TAMASX=ML(MU)*12:TAMASY=ML(MU+1)*12
  552. 15510 RETURN
  553. 15520 FX=MCX+ML(MU):FY=MCY+ML(MU+1):FL=FL%(FX,FY)
  554. 15530 IF FBX<>-1 THEN RETURN
  555. 15540 IF MEN=11 THEN FL=0
  556. 15550 IF FL=0 THEN RETURN
  557. 15560 FBX=FX:FBY=FY:FS=1:FJ%(FX,FY)=FL
  558. 15570 RETURN
  559. 15580 '
  560. 15590 '
  561. 15600 '床を変化させる
  562. 15610 '
  563. 15620 '
  564. 15630 *MOVEFLOOR
  565. 15640 IF FBX=-1 THEN RETURN
  566. 15650 IF BEAM=1 AND FBX<>15 THEN *F1
  567. 15660 ON FJ%(FBX,FBY) GOTO *F1,*F2,*F3
  568. 15670 *F2
  569. 15680 ON FS GOTO 15690,15720,15730
  570. 15690 PCMPLAY P1%
  571. 15700 DEF SPRITE 1,180,(FBX*16,FBY*16),20,1,1,0,1:SPRITE 0,180,1
  572. 15710 SPRITE 1,516+FBX-FBY*20,12:FS=2:FL%(FBX,FBY)=1:RETURN
  573. 15720 SPRITE 1,180,19+FS:FS=FS+1:RETURN
  574. 15730 SPRITE 0,180,0:FJ%(FBX,FBY)=0:FBX=-1:FS=0:RETURN
  575. 15740 *F3
  576. 15750 ON FS GOTO 15760,15720,15720,15730 
  577. 15760 PCMPLAY P1%
  578. 15770 DEF SPRITE 1,180,(FBX*16,FBY*16),20,1,1,0,1:SPRITE 0,180,1:FS=2:RETURN
  579. 15780 *F1
  580. 15790 ON FS GOTO 15800,15830,15830,15830,15840 
  581. 15800 PCMPLAY P2%:FU=1
  582. 15810 DEF SPRITE 1,180,(FBX*16,FBY*16),16,1,1,0,1:SPRITE 0,180,1
  583. 15820 FS=2:FL%(FBX,FBY)=0:RETURN
  584. 15830 SPRITE 1,180,15+FS:FS=FS+1:RETURN
  585. 15840 SPRITE 0,180,0:FJ%(FBX,FBY)=4:FS=0
  586. 15850 '
  587. 15860 '
  588. 15870 '落ちる床を検出
  589. 15880 '
  590. 15890 '
  591. 15900 *FALLCHECK:FCC=0:FCCK=FCCK+1
  592. 15910 IF FX%(0,FCC)=0 THEN 15920 ELSE FCC=FCC+1:GOTO 15910
  593. 15920 FD=FG%(FBX,FBY):II=1:FC%(FBX,FBY)=1
  594. 15930 FOR I=0 TO 3:IB=II
  595. 15940   FX=FBX+MK(I):FY=FBY+MK(I+3)
  596. 15950   IF FL%(FX,FY)=0 THEN 16240
  597. 15960   IF FC%(FX,FY)=1 THEN 16240
  598. 15970   IF FC%(FX,FY)=2 THEN 16240
  599. 15980   IF FG%(FX,FY)<=FD THEN 16240
  600. 15990   FC%(FX,FY)=1:FFV=1
  601. 16000   FX%(IB,FCC)=FX:FY%(IB,FCC)=FY:IC=IB
  602. 16010   WHILE FFV<>0
  603. 16020     FV=FFV:FFV=0
  604. 16030     FOR F2=1 TO FV:IF FE=1 THEN 16190 
  605. 16040       FX=FX%(IC-FV+F2,FCC):FY=FY%(IC-FV+F2,FCC)
  606. 16050       FOR F1=0 TO 3:IF FE=1 THEN 16180
  607. 16060         FAX=FX+MK(F1):FAY=FY+MK(F1+3)
  608. 16070         IF FL%(FAX,FAY)=0 THEN 16180 
  609. 16080         IF FC%(FAX,FAY)=1 THEN 16180
  610. 16090         IF FC%(FAX,FAY)=2 THEN 16140
  611. 16100         FFV=FFV+1:II=II+1
  612. 16110         FX%(II,FCC)=FAX:FY%(II,FCC)=FAY
  613. 16120         FC%(FAX,FAY)=1
  614. 16130         IF FG%(FAX,FAY)>FD THEN 16180
  615. 16140         FOR ID=II-FFV TO II
  616. 16150           FC%(FX%(ID,ICC),FY%(ID,ICC))=2
  617. 16160         NEXT
  618. 16170         FFV=0:II=IB:FX%(II,FCC)=0
  619. 16180       NEXT
  620. 16190     NEXT
  621. 16200     IC=II
  622. 16210     IF FE=0 AND FFV=0 THEN II=II+1:IC=IC+1
  623. 16220     FE=0
  624. 16230   WEND
  625. 16240 NEXT:FX%(0,FCC)=FBX:FY%(0,FCC)=FBY:FX%(II,FCC)=0
  626. 16250 FU=0
  627. 16260 FE=0:L=0:FBX=-1:IT=IT+II:IT(FCC)=II
  628. 16270 WHILE FX%(L,FCC)<>0 
  629. 16280   FX=FX%(L,FCC):FY=FY%(L,FCC):FL%(FX,FY)=0
  630. 16290   L=L+1
  631. 16300 WEND
  632. 16310 GOSUB *NUMBER
  633. 16320 RETURN
  634. 16330 '
  635. 16340 '
  636. 16350 'ハンスが動けるかどうか
  637. 16360 '
  638. 16370 '
  639. 16380 *WCANMOV
  640. 16390 FOR IM=1 TO IN
  641. 16400   IF ITX(IM)<>(MCX+MIX)*16 OR ITY(IM)<>(MCY+MIY)*16 THEN 16440
  642. 16410   IF IZ(IM)=2 OR IZ(IM)=5 THEN 16440
  643. 16420   STU=1
  644. 16430   IF IZ(IM)=0 THEN GOSUB *NONKEYBOXOPEN
  645. 16440 NEXT
  646. 16450 IF HCX=MCX+MIX AND HCY=MCY+MIY AND OJ=1 THEN STU=1
  647. 16460 RETURN
  648. 16470 '
  649. 16480 '
  650. 16490 '床を実際に落とす
  651. 16500 '
  652. 16510 '
  653. 16520 *FALLFLOOR:IF FCCK=0 THEN RETURN
  654. 16530 QUU=-1:UK=0
  655. 16540 IF UK=>FCCK THEN 16660
  656. 16550 QUU=QUU+1:IF FX%(0,QUU)=0 THEN 16540
  657. 16560 Z=QUU:UK=UK+1
  658. 16570 FF=0:GOSUB *FALLFACT:GOTO 16540
  659. 16580 *FALLFACT
  660. 16590 WHILE FX%(FF,Z)<>0
  661. 16600   A=516+FX%(FF,Z)-FY%(FF,Z)*20
  662. 16610   SPRITE 6,A,0,10
  663. 16620   FF=FF+1
  664. 16630 WEND
  665. 16640 A=516+FX%(0,Z)-FY%(0,Z)*20
  666. 16650 IF SPRITE(A,7)>400 THEN IT=IT-IT(Z):FCCK=FCCK-1:U=0:WHILE FX%(U,Z)<>0:A=516+FX%(U,Z)-FY%(U,Z)*20:SPRITE 0,A,0:U=U+1:WEND:FX%(0,Z)=0
  667. 16660 RETURN
  668. 16670 '
  669. 16680 '
  670. 16690 '
  671. 16700 '
  672. 16710 *PAPID'          パピッドの制御  （ 代 ）
  673. 16720 '
  674. 16730 '
  675. 16740 '
  676. 16750 '
  677. 16760 IF TANMA=1 THEN RETURN
  678. 16770 IF PN=0 THEN RETURN
  679. 16780 FOR I=0 TO PN-1
  680. 16790   IF PK(I)=2 THEN GOSUB *P7
  681. 16800   ON PJ(I)+1 GOSUB *P0,*P1,*P2,*P3,*P4,*P5,*P6
  682. 16810 NEXT
  683. 16820 RETURN
  684. 16830 '
  685. 16840 *P2'               卵がある   
  686. 16850 '
  687. 16860 PMO(I)=0:PB(I)=PB:PBS(I)=0:PJUJ(I)=0
  688. 16870 IF PES(I,1)=0 THEN DEF SPRITE 1,60+I,(PWX(I),PWY(I)),71,1,1,0,PK(I)+5:SPRITE 0,60+I,1:PES(I,1)=PES(I,1)+1:RETURN
  689. 16880 PES(I,1)=PES(I,1)+1
  690. 16890 IF FL%(PMX(I),PMY(I))=0 AND FU=0 THEN PJ(I)=4:PES(I,1)=0:PEF(I)=71:LS=12:PO&=PO&+100:A&=PO&:GOSUB *NUMSPRHEN:RETURN
  691. 16900 IF PES(I,1)=PES1 THEN PES(I,1)=0:PJ(I)=3:SPRITE 1,60+I,72:RETURN
  692. 16910 RETURN
  693. 16920 '
  694. 16930 *P3'               卵にひびが入る
  695. 16940 '
  696. 16950 PES(I,2)=PES(I,2)+1 
  697. 16960 IF FL%(PMX(I),PMY(I))=0 AND FU=0 THEN PJ(I)=4:PES(I,2)=0:PEF(I)=72:PO&=PO&+100:A&=PO&:LS=12:GOSUB *NUMSPRHEN:RETURN
  698. 16970 IF PES(I,2)=PES2 THEN PES(I,2)=0:PEW(I)=0:PJ(I)=6:PCMPLAY P8%:RETURN
  699. 16980 RETURN
  700. 16990 '
  701. 17000 *P6'               卵が割れている
  702. 17010 '
  703. 17020 PES(I,3)=PES(I,3)+1
  704. 17030 IF PES(I,3)<>PES3 THEN RETURN
  705. 17040 PES(I,3)=0
  706. 17050 SPRITE 1,60+I,74+PEW(I)
  707. 17060 PEW(I)=PEW(I)+1
  708. 17070 IF PEW(I)=4 THEN PEW(I)=0:PJ(I)=0:PMU(I)=2:SPRITE 1,60+I,52:PMU(I)=2:PR(I)=52:PS(I)=0:RETURN
  709. 17080 RETURN
  710. 17090 '
  711. 17100 *P5'               パピッドがいない時
  712. 17110 '
  713. 17120 IF PNA(I)=-1 THEN RETURN
  714. 17130 IF PNA(I)=0 THEN PJ(I)=2:RETURN
  715. 17140 PNA(I)=PNA(I)-1
  716. 17150 RETURN
  717. 17160 '
  718. 17170 *P1'               パピッドが落ちている時
  719. 17180 '
  720. 17190 IF PWX(I)=0 THEN 17260
  721. 17200 ON INT(RND(1)*2)+1 GOTO 17210,17220
  722. 17210 PCMPLAY P5%:GOTO 17230
  723. 17220 PCMPLAY P6%:GOTO 17230
  724. 17230 DEF SPRITE 1,512-PMY(I)*20+I,(PMX(I)*16,PMY(I)*16),67+(MR(PMU(I)*2+1)-1)/3,1,1,0,PK(I)+5:SPRITE 0,512-PMY(I)*20+I,1
  725. 17240 SPRITE 0,60+I,0
  726. 17250 PWX(I)=0:PFS(I)=1
  727. 17260 SPRITE 6,512-PMY(I)*20+I,0,INT(PFS(I)):PWY(I)=PWY(I)+INT(PFS(I)):PFS(I)=PFS(I)+.1!
  728. 17270 IF PWY(I)>200 THEN SPRITE 0,512-PMY(I)*20+I,0:PNA(I)=50:GOSUB *KIME:PFS(I)=0:PJ(I)=5
  729. 17280 RETURN
  730. 17290 '
  731. 17300 *P4'               卵のまま落ちている
  732. 17310 '
  733. 17320 IF PWX(I)=0 THEN 17360
  734. 17330 DEF SPRITE 1,512-PMY(I)*20+I,(PMX(I)*16,PMY(I)*16),PEF(I),1,1,0,PK(I)+5
  735. 17340 SPRITE 0,512-PMY(I)*20+I,1:PEF=0:SPRITE 0,60+I,0
  736. 17350 PWX(I)=0:PFS(I)=1
  737. 17360 SPRITE 6,512-PMY(I)*20+I,0,INT(PFS(I)):PWY(I)=PWY(I)+INT(PFS(I)):PFS(I)=PFS(I)+.2!
  738. 17370 IF PWY(I)>200 THEN SPRITE 0,512-PMY(I)*20+I,0:PNA(I)=80:GOSUB *KIME:PFS(I)=0:PJ(I)=5
  739. 17380 RETURN
  740. 17390 '
  741. 17400 *P7'               呪文を使う
  742. 17410 '
  743. 17420 IF PJUJ(I)=0 THEN RETURN
  744. 17430 IF PJUJ(I)<>1 THEN 17450
  745. 17440 PCMPLAY P4%,127:DEF SPRITE 1,54+I,(PWX(I),PWY(I)),78+MP(PMU(I)),1,1,0,7:SPRITE 0,54+I,1:PJUHN(I)=0:PJUIX(I)=PWX(I):PJUIY(I)=PWY(I):PJUSX(I)=PX(I)*8:PJUSY(I)=PY(I)*8:PJUJ(I)=2:IF PX(I)=0 AND PY(I)=0 THEN PJUSY(I)=8:RETURN ELSE RETURN
  746. 17450 IF PJUJ(I)<>2 THEN 17540
  747. 17460 SPRITE 6,54+I,PJUSX(I),PJUSY(I)
  748. 17470 IF PJUSX(I)=0 THEN 17510
  749. 17480 PJUIX(I)=PJUIX(I)+PJUSX(I)
  750. 17490 IF ABS(128-PJUIX(I))>100 THEN PJUJ(I)=0:SPRITE 0,54+I,0
  751. 17500 RETURN
  752. 17510 PJUIY(I)=PJUIY(I)+PJUSY(I)
  753. 17520 IF ABS(128-PJUIY(I))>100 THEN PJUJ(I)=0:SPRITE 0,54+I,0
  754. 17530 RETURN
  755. 17540 PJUHN(I)=PJUHN(I)+1
  756. 17550 SPRITE 6,54+I,-PJUSX(I)/4,-PJUSY(I)/4
  757. 17560 IF PJUHN(I)=10 THEN PJUJ(I)=0:SPRITE 0,54+I,0
  758. 17570 RETURN
  759. 17580 '                  呪文がハンスに当たる
  760. 17590 *SH
  761. 17600 IF MU=1 THEN IF PJUSY(IM)= 8 THEN SH=0:PJUSX(IM)= 8 ELSE SH=1
  762. 17610 IF MU=3 THEN IF PJUSX(IM)=-8 THEN SH=0:PJUSY(IM)= 8 ELSE SH=1
  763. 17620 IF MU=5 THEN IF PJUSY(IM)=-8 THEN SH=0:PJUSX(IM)=-8 ELSE SH=1
  764. 17630 IF MU=7 THEN IF PJUSX(IM)= 8 THEN SH=0:PJUSY(IM)=-8 ELSE SH=1
  765. 17640 RETURN
  766. 17650 '
  767. 17660 *P0'               パピッドがハンスを追いかけている
  768. 17670 '
  769. 17680 IF PWX(I) MOD 16<>0 OR PWY(I) MOD 16<>0 THEN 17730
  770. 17690 PMAM(I)=PMAM(I)+1:IF PMAM(I)=1 THEN PMA(I)=2-PMA(I):PMAM(I)=0
  771. 17700 IF PK(I)=2 THEN IF RND(1)>.4! AND PJUJ(I)=0 THEN PJUJ(I)=1:GOSUB *P7
  772. 17710 IF FL%(PMX(I),PMY(I))<>0 THEN GOSUB *MUKI:PR(I)=MR(PMU(I)*2+1)+51:PX(I)=MK(PMU(I)):PY(I)=MK(PMU(I)+3):PMX(I)=PMX(I)+PX(I):PMY(I)=PMY(I)+PY(I):GOTO 17730
  773. 17720 PJ(I)=1:PO&=PO&+300:A&=PO&:LS=12:GOSUB *NUMSPRHEN:RETURN
  774. 17730 PS(I)=PS(I)+.5!:IF PS(I)=4 THEN PS(I)=0
  775. 17740 SPRITE 1,60+I,PR(I)+MK(PS(I))
  776. 17750 SPRITE 6,60+I,PX(I)*PHA(PK(I)),PY(I)*PHA(PK(I))
  777. 17760 PWX(I)=PWX(I)+PX(I)*PHA(PK(I)):PWY(I)=PWY(I)+PY(I)*PHA(PK(I))
  778. 17770 RETURN
  779. 17780 '
  780. 17790 *MUKI'             パピッドの向きを変える
  781. 17800 '
  782. 17810 IF PBS(I)>0 THEN PBS(I)=PBS(I)-1:IF PBS(I)=0 THEN PB(I)=PB
  783. 17820 IF MCX=PMX(I) AND PMO(I)<>2 THEN PMO(I)=0:GOTO *P0PX
  784. 17830 IF MCY=PMY(I) AND PMO(I)<>1 THEN PMO(I)=0:GOTO *P0PY
  785. 17840 IF PMO(I)=1 THEN *PTY
  786. 17850 IF PMO(I)=2 THEN *PTX
  787. 17860 ON PM(I) GOTO *P0PY,*P0PX
  788. 17870 '
  789. 17880 *P0PX'             縦に追いかける
  790. 17890 '
  791. 17900 PG=SGN(PMY(I)-MCY):IF PG=0 THEN PMU(I)=4:RETURN
  792. 17910 IF FL%(PMX(I),PMY(I)-PG*PB(I))=0 THEN *P0JY
  793. 17920 PMU(I)=1-PG*PB(I):RETURN
  794. 17930 '
  795. 17940 *P0PY'             横に追いかける
  796. 17950 '
  797. 17960 PG=SGN(PMX(I)-MCX)
  798. 17970 IF FL%(PMX(I)-PG*PB(I),PMY(I))=0 THEN *P0JX
  799. 17980 PMU(I)=2+PG*PB(I):RETURN
  800. 17990 '
  801. 18000 *P0JX'             横に追いかけている時障害物に当たる
  802. 18010 '
  803. 18020 FOR P=0 TO 2 STEP 2
  804. 18030 PFY=0:PC(P)=0
  805. 18040 WHILE FL%(PMX(I),PMY(I)+PFY)<>0 AND PC(P)=0
  806. 18050   IF FL%(PMX(I)-PG*PB(I),PMY(I)+PFY)<>0 THEN PC(P)=PFY
  807. 18060   PFY=PFY+P-1
  808. 18070 WEND
  809. 18080 NEXT
  810. 18090 IF PC(0)=0 THEN 18120
  811. 18100 IF PC(2)=0 THEN PMU(I)=0:PMOX(I)=PMX(I)-PG*PB(I):PMOY(I)=PMY(I)+PC(0):PMO(I)=1:RETURN
  812. 18110 PMU(I)=PMA(I):PMOX(I)=PMX(I)-PG*PB(I):PMOY(I)=PMY(I)+PC(PMA(I)):PMO(I)=1:RETURN
  813. 18120 IF PC(2)=0 THEN PB(I)=PB(I)*(-1):PBS(I)=10:PMU(I)=4-PMU(I):GOTO *P0PY
  814. 18130 PMU(I)=2:PMOX(I)=PMX(I)-PG*PB(I):PMOY(I)=PMY(I)+PC(2):PMO(I)=1:RETURN
  815. 18140 '
  816. 18150 *PTY'             横に追いかけて回り込みその結果どうなるか？
  817. 18160 '
  818. 18170 IF PMOY(I)=PMY(I) THEN 18200
  819. 18180 IF FL%(PMX(I),PMY(I)+PMU(I)-1)=0 THEN PMO(I)=0:PB(I)=PB:GOTO *P0JX
  820. 18190 RETURN
  821. 18200 IF FL%(PMOX(I),PMY(I))=0 THEN PMO(I)=0:PB(I)=PB:GOTO *P0JX
  822. 18210 PMU(I)=SGN(PMX(I)-PMOX(I))*PB(I)+2:PMO(I)=0:RETURN
  823. 18220 '
  824. 18230 *P0JY'             縦に追いかけている時障害物に当たる
  825. 18240 '
  826. 18250 FOR P=0 TO 2 STEP 2
  827. 18260 PFX=0:PC(P)=0
  828. 18270 WHILE FL%(PMX(I)+PFX,PMY(I))<>0 AND PC(P)=0
  829. 18280   IF FL%(PMX(I)+PFX,PMY(I)-PG*PB(I))<>0 THEN PC(P)=PFX
  830. 18290   PFX=PFX+P-1
  831. 18300 WEND
  832. 18310 NEXT
  833. 18320 IF PC(0)=0 THEN 18350
  834. 18330 IF PC(2)=0 THEN PMU(I)=3:PMOY(I)=PMY(I)-PG*PB(I):PMOX(I)=PMX(I)+PC(0):PMO(I)=2:RETURN
  835. 18340 PMU(I)=PMA(I)+1:PMOY(I)=PMY(I)-PG*PB(I):PMOX(I)=PMX(I)+PC(2-PMA(I)):PMO(I)=2:RETURN 
  836. 18350 IF PC(2)=0 THEN PB(I)=PB(I)*(-1):PBS(I)=10:PMU(I)=2-PMU(I):GOTO *P0PX
  837. 18360 PMU(I)=1:PMOX(I)=PMX(I)+PC(2):PMOY(I)=PMY(I)-PG*PB(I):PMO(I)=2:RETURN
  838. 18370 '
  839. 18380 *PTX'             縦に追いかけて回り込みその結果どうなるか？
  840. 18390 '
  841. 18400 IF PMOX(I)=PMX(I) THEN 18430
  842. 18410 IF FL%(PMX(I)+2-PMU(I),PMY(I))=0 THEN PMO(I)=0:PB(I)=PB:GOTO *P0JX
  843. 18420 RETURN
  844. 18430 IF FL%(PMX(I),PMOY(I))=0 THEN PMO(I)=0:PB(I)=PB:GOTO *P0JY
  845. 18440 PMU(I)=1-SGN(PMY(I)-PMOY(I))*PB(I):PMO(I)=0:RETURN
  846. 18450 '
  847. 18460 *KIME'              落ちたあと新しい座標を決める
  848. 18470 '
  849. 18480 PYA=0
  850. 18490 PMX(I)=INT(RND(1)*15)+1:PWX(I)=PMX(I)*16
  851. 18500 PMY(I)=INT(RND(1)*15)+1:PWY(I)=PMY(I)*16
  852. 18510 IF FL%(PMX(I),PMY(I))=0 THEN PYA=PYA+1:IF PYA=20 THEN PNA(I)=-1:RETURN ELSE 18490
  853. 18520 IF PMX(I)=15 AND PMY(I)=6 THEN PNA(I)=-1:RETURN
  854. 18530 RETURN
  855. 18540 '
  856. 18550 '
  857. 18560 '
  858. 18570 '
  859. 18580 *ESTEDLE        'エステドルの制御  （ 代 ）
  860. 18590 '
  861. 18600 '
  862. 18610 '
  863. 18620 '
  864. 18630 IF TANMA=1 THEN RETURN
  865. 18640 IF EN=0 THEN RETURN
  866. 18650   FOR I=0 TO EN-1
  867. 18660   ON EJ(I)+1 GOSUB *E0,*E1,*E2,*E3,*E4,*E5,*E6,*E7
  868. 18670 NEXT
  869. 18680 RETURN
  870. 18690 '
  871. 18700 'エステドルが普通に動いている
  872. 18710 '
  873. 18720 *E4
  874. 18730 IF EMX(I) MOD 16<>0 OR EMY(I) MOD 16<>0 THEN 19060
  875. 18740 IF FL%(ECX(I),ECY(I))=0 THEN EJ(I)=7:EEF(I)=ER(I):LS=12:PO&=PO&+500:A&=PO&:GOSUB *NUMSPRHEN:RETURN
  876. 18750 IF MCX<>ECX(I) THEN 18860
  877. 18760 ES=0
  878. 18770 EB=SGN(MCY-ECY(I)):IF EB=0 THEN RETURN
  879. 18780 FOR EI=ECY(I) TO MCY STEP EB
  880. 18790   IF FL%(ECX(I),EI)=0 THEN ES=1
  881. 18800 NEXT
  882. 18810 IF ES=1 THEN 18970
  883. 18820 EJ(I)=5:EIX(I)=0:EIY(I)=EB:PCMPLAY P9%,127
  884. 18830 ER(I)=165+(1-EB)*3/2
  885. 18840 SPRITE 1,61+PN+I,(1-EB)/2+200:EJS(I)=0:EJSK(I)=0
  886. 18850 GOTO *E5
  887. 18860 IF MCY<>ECY(I) THEN 18970
  888. 18870 ES=0
  889. 18880 EB=SGN(MCX-ECX(I)):IF EB=0 THEN RETURN
  890. 18890 FOR EI=ECX(I) TO MCX STEP EB
  891. 18900   IF FL%(EI,ECY(I))=0 THEN ES=1
  892. 18910 NEXT
  893. 18920 IF ES=1 THEN 18970
  894. 18930 EJ(I)=5:EIY(I)=0:EIX(I)=EB:PCMPLAY P9%,127
  895. 18940 ER(I)=171+(1-EB)*3/2
  896. 18950 SPRITE 1,61+PN+I,(1-EB)/2+202:EJS(I)=0:EJSK(I)=0
  897. 18960 GOTO *E5
  898. 18970 ERH=0
  899. 18980 A=INT(RND(1)*40)
  900. 18990 IF A>3 THEN 19040
  901. 19000 IF FL%(ECX(I)+MK(A),ECY(I)-MK(A+1))=0 THEN ERH=ERH+1:IF ERH<>12 THEN A=INT(RND(1)*4):GOTO 19000 ELSE ERHH=1
  902. 19010 ER(I)=MR(A*2+1)+164
  903. 19020 ERH=0
  904. 19030 EIX(I)=MK(A):EIY(I)=-MK(A+1)
  905. 19040 IF FL%(ECX(I)+EIX(I),ECY(I)+EIY(I))=0 THEN IF ERHH=0 THEN ERH=0:A=INT(RND(1)*4):GOTO 19000 ELSE ERHH=0
  906. 19050 ECX(I)=ECX(I)+EIX(I):ECY(I)=ECY(I)+EIY(I)
  907. 19060 EMX(I)=EMX(I)+EIX(I):EMY(I)=EMY(I)+EIY(I)
  908. 19070 SPRITE 6,61+PN+I,EIX(I),EIY(I)
  909. 19080 ES(I)=ES(I)+.2!:IF ES(I)>=4 THEN ES(I)=0
  910. 19090 SPRITE 1,61+PN+I,ER(I)+MK(ES(I))
  911. 19100 RETURN
  912. 19110 '
  913. 19120 'エステドルがジャンプしている
  914. 19130 '
  915. 19140 *E5
  916. 19150 EJSK(I)=EJSK(I)+1:IF EJSK(I)<EJS THEN RETURN
  917. 19160 EJSK(I)=0
  918. 19170 SPRITE 6,61+PN+I,0,EJSN(EJS(I))
  919. 19180 EJS(I)=EJS(I)+1:IF EJS(I)=14 THEN EJ(I)=6
  920. 19190 RETURN
  921. 19200 '
  922. 19210 'エステドルが突進している
  923. 19220 '
  924. 19230 *E6
  925. 19240 IF EMX(I) MOD 16<>0 OR EMY(I) MOD 16<>0 THEN 19280
  926. 19250 IF FL%(ECX(I),ECY(I))=0 THEN EEF(I)=ER(I):EJ(I)=7:LS=12:PO&=PO&+1000:A&=PO&:GOSUB *NUMSPRHEN:RETURN
  927. 19260 IF FL%(ECX(I)+EIX(I),ECY(I)+EIY(I))=0 THEN A=INT(RND(1)*4):EJ(I)=4:ERH=0:GOTO 19000 
  928. 19270 ECX(I)=ECX(I)+EIX(I):    ECY(I)=ECY(I)+EIY(I)
  929. 19280 EMX(I)=EMX(I)+EIX(I)*EDS:EMY(I)=EMY(I)+EIY(I)*EDS
  930. 19290 SPRITE 6,61+PN+I,EIX(I)*EDS,EIY(I)*EDS
  931. 19300 ES(I)=ES(I)+5:IF ES(I)>=4 THEN ES(I)=0
  932. 19310 SPRITE 1,61+PN+I,ER(I)+MK(ES(I))
  933. 19320 RETURN
  934. 19330 '
  935. 19340 'エステドルがいない
  936. 19350 '
  937. 19360 *E0
  938. 19370 IF ENA(I)=-1 THEN RETURN
  939. 19380 IF ENA(I)=0 THEN EJ(I)=1:RETURN
  940. 19390 ENA(I)=ENA(I)-1
  941. 19400 RETURN
  942. 19410 '
  943. 19420 '卵がある
  944. 19430 '
  945. 19440 *E1
  946. 19450 IF EES(I,1)=0 THEN DEF SPRITE 1,61+PN+I,(EMX(I),EMY(I)),180,1,1,0,9:SPRITE 0,61+PN+I,1:EES(I,1)=EES(I,1)+1:RETURN
  947. 19460 EES(I,1)=EES(I,1)+1
  948. 19470 IF FL%(ECX(I),ECY(I))=0 AND FU=0 THEN EJ(I)=7:EES(I,2)=0:EEF(I)=180:PO&=PO&+100:A&=PO&:LS=12:GOSUB *NUMSPRHEN
  949. 19480 IF EES(I,1)=EES1 THEN EES(I,1)=0:EJ(I)=2:SPRITE 1,61+I+PN,181:RETURN
  950. 19490 RETURN
  951. 19500 '
  952. 19510 '卵にひびが入る
  953. 19520 '
  954. 19530 *E2
  955. 19540 EES(I,2)=EES(I,2)+1
  956. 19550 IF FL%(ECX(I),ECY(I))=0 AND FU=0 THEN EJ(I)=7:EES(I,2)=0:EEF(I)=181:LS=12:PO&=PO&+100:A&=PO&:GOSUB *NUMSPRHEN
  957. 19560 SPRITE 6,61+I+PN,0,(EES(I,2) MOD 2)*2-1
  958. 19570 IF EES(I,2)=EES2 THEN EES(I,2)=0:EJ(I)=3:EEW(I)=0:PCMPLAY P8%:RETURN
  959. 19580 RETURN
  960. 19590 '
  961. 19600 '卵が割れている
  962. 19610 '
  963. 19620 *E3
  964. 19630 EES(I,3)=EES(I,3)+1
  965. 19640 IF EES(I,3)<>EES3 THEN RETURN
  966. 19650 EES(I,3)=0
  967. 19660 SPRITE 1,61+PN+I,182+EEW(I)
  968. 19670 EEW(I)=EEW(I)+1
  969. 19680 IF EEW(I)=4 THEN EEW(I)=0:EJ(I)=4:SPRITE 1,61+PN+I,165:RETURN
  970. 19690 RETURN
  971. 19700 '
  972. 19710 '新しい位置を決める
  973. 19720 '
  974. 19730 *E8
  975. 19740 EYA=0
  976. 19750 ECX(I)=INT(RND(1)*15)+1:EMX(I)=ECX(I)*16
  977. 19760 ECY(I)=INT(RND(1)*15)+1:EMY(I)=ECY(I)*16
  978. 19770 IF FL%(ECX(I),ECY(I))=0 THEN EYA=EYA+1:IF EYA=20 THEN ENA(I)=-1:RETURN ELSE 19750
  979. 19780 IF ECX(I)=15 AND ECY(I)=6 THEN ENA(I)=-1:RETURN
  980. 19790 EIX(I)=0:EIY(I)=-1:ER(I)=165
  981. 19800 RETURN
  982. 19810 '
  983. 19820 'エステドルが落ちている
  984. 19830 '
  985. 19840 *E7
  986. 19850 IF EMX(I)=0 THEN 19900
  987. 19860 IF EEF(I)<176 OR EEF(I)>199 THEN PCMPLAY P9%,127
  988. 19870 IF EEF(I)<176 THEN EEF(I)=INT((EEF(I)-164)/3)+176
  989. 19880 DEF SPRITE 1,512-ECY(I)*20+PN+I,(EMX(I),EMY(I)),EEF(I),1,1,0,9:SPRITE 0,512-ECY(I)*20+PN+I,1
  990. 19890 SPRITE 0,61+PN+I,0:EMX(I)=0:EFS(I)=1
  991. 19900 SPRITE 6,512-ECY(I)*20+PN+I,0,INT(EFS(I)):EMY(I)=EMY(I)+INT(EFS(I)):EFS(I)=EFS(I)+.1!
  992. 19910 IF EMY(I)>200 THEN SPRITE 0,512-ECY(I)*20+PN+I,0:ENA(I)=50:GOSUB *E8:EFS(I)=0:EJ(I)=0
  993. 19920 RETURN
  994. 19930 '
  995. 19940 '
  996. 19950 'プリン、カリーナ
  997. 19960 '
  998. 19970 '
  999. 19980 *HIME 
  1000. 19990 ON HJ GOTO *H1,*H2
  1001. 20000 '
  1002. 20010 '捕らわれている
  1003. 20020 '
  1004. 20030 *H1
  1005. 20040 HH1=MCY-MCX+HCX-HCY
  1006. 20050 HH2=MCY+MCX-HCX-HCY
  1007. 20060 IF HSHU=0 THEN 20110
  1008. 20070 IF HH1>=0 AND HH2>0 THEN IF HMU=2 THEN RETURN ELSE HMU=2:SPRITE 1,70,82+HSHU*4:RETURN
  1009. 20080 IF HH1<0 AND HH2>=0 THEN IF HMU=1 THEN RETURN ELSE HMU=1:SPRITE 1,70,84+HSHU*4:RETURN
  1010. 20090 IF HH1<=0 AND HH2<0 THEN IF HMU=0 THEN RETURN ELSE HMU=0:SPRITE 1,70,83+HSHU*4:RETURN
  1011. 20100 IF HH1>0 AND HH2<=0 THEN IF HMU=3 THEN RETURN ELSE HMU=3:SPRITE 1,70,85+HSHU*4:RETURN
  1012. 20110 IF MEN=11 THEN IF HH1=0 AND HH2=0 THEN 20150 ELSE RETURN
  1013. 20120 IF MUTEKI<>0 AND HJ=1 THEN SH=7:RETURN
  1014. 20130 IF PLON<>3 AND PLON<>4 THEN PLAY OFF:PLAY ON:GOSUB *MUSICHIME:PLP=0:PLON=2:PL=0 ELSE PPLON=2
  1015. 20140 HJ=2:DEF SPRITE 1,40,(MWX%,MWY%-16),27+MR(MU)*2,1,2,0,4:R=27+MR(MU)*2:SPRITE 2,40,4:SPRITE 0,40,1:SPRITE 0,70,0:RETURN
  1016. 20150 IF SEH=0 THEN SEH=1:GOTO 20160 ELSE RETURN
  1017. 20160 PLON=6:PL=0:PLP=0:PLAY OFF:PLAY ON:PACX=128:PACY=80:PACNX=208:PACNY=0:PACR=80:PACT=0:GOSUB *MUSICPANIUS
  1018. 20170 DEF SPRITE 1,32,(208,0),224,2,3,0,28:SPRITE 0,32,1
  1019. 20180 PANI=1
  1020. 20190 RETURN
  1021. 20200 '
  1022. 20210 '助けられている
  1023. 20220 '
  1024. 20230 *H2
  1025. 20240 RETURN
  1026. 20250 '
  1027. 20260 '
  1028. 20270 'クリアー
  1029. 20280 '
  1030. 20290 '
  1031. 20300 *CLEAR
  1032. 20310 IF CDS=0 THEN RETURN
  1033. 20320 ON CDS GOTO *C1,*C2,*C3,*C4
  1034. 20330 *C1
  1035. 20340 SPRITE 1,40,41
  1036. 20350 PUT@A(239,80)-(255,111),S%
  1037. 20360 SPRITE 0,411,0
  1038. 20370 SPRITE 0,40,0:CDS=2:CHHS=1
  1039. 20380 RETURN
  1040. 20390 *C2
  1041. 20400 PUT@A(239+CHHS,80)-(255+CHHS,111),S%,,1,1,,CHHS*544
  1042. 20410 CHHS=CHHS+1
  1043. 20420 IF CHHS=40 THEN CDS=3
  1044. 20430 RETURN
  1045. 20440 *C3
  1046. 20450 PUT@A(239+CHHS,80)-(255+CHHS,111),S%,,1,1,,17408+544*(CHHS MOD 8)
  1047. 20460 CHHS=CHHS+1
  1048. 20470 IF CHHS=80 THEN CDS=4
  1049. 20480 RETURN
  1050. 20490 *C4
  1051. 20500 IF FL%(14,6)<>0 THEN *C5
  1052. 20510 PLAY OFF:PLAY ON:GOSUB *MUSICCLEAR
  1053. 20520 LX=120:LY=80:LS=27:A$="CLEAR":GOSUB *WORDSPR
  1054. 20530 WAIT 300
  1055. 20540 IF TIMN=1000 THEN 20640
  1056. 20550 LX=100    :LY=100:LS=32:A$="TIME" :GOSUB *WORDSPR
  1057. 20560 LX=100+8*6:LY=100:LS=36:A$="BONUS":GOSUB *WORDSPR
  1058. 20570 PZT=0
  1059. 20580 FOR I=TIMN-1 TO 1000 STEP -1:PZT=PZT+50
  1060. 20590   LX=30+8*5:LY=20:LS=4:A&=I:GOSUB *NUMSPRHEN
  1061. 20600   LX=30+8*16:LY=20:LS=12:A&=PO&+PZT:GOSUB *NUMSPRHEN
  1062. 20610 NEXT
  1063. 20620 PO&=PO&+PZT:SE=40
  1064. 20630 GOTO 20670
  1065. 20640 LX=100    :LY=100:LS=32:A$="NO"   :GOSUB *WORDSPR
  1066. 20650 LX=100+8*3:LY=100:LS=34:A$="BONUS":GOSUB *WORDSPR
  1067. 20660 SE=38
  1068. 20670 WAIT 400:PLAY OFF:PLAY ON
  1069. 20680 CLS
  1070. 20690 MEN=MEN+1
  1071. 20700 FOR I=0  TO 25:SPRITE 0,I,0:NEXT
  1072. 20710 FOR I=27 TO SE:SPRITE 0,I,0:NEXT
  1073. 20720 GOSUB *ERASESPR
  1074. 20730 OJ=1:WAIT 100:GOTO 11770
  1075. 20740 *C5
  1076. 20750 GOSUB *ERASESPR:PLAY OFF:PLAY ON
  1077. 20760 CLS:G$="CDEF+G+[A+>C<A+G+F+E[D":PLAY "T32@72O1V15C1&C1&C1","@72O1V15C+1&C+1&C+1","@63V10O4L20"+G$+G$+G$,"U90@63V7O4L20R40"+G$+G$+G$+G$+G$+"C"
  1078. 20770 LX=136+8*1.5!:LY=90:LS=0:A$="YOU"       :GOSUB *JIWA
  1079. 20780 LX=136:  LS=0:LY=90     :A$="FORGOT"    :GOSUB *JIWA
  1080. 20790 LX=136+8*2 :LS=0:LY=90  :A$="TO"        :GOSUB *JIWA
  1081. 20800 LX=136-8*2 :LS=0:LY=90  :A$="DESTROY"   :GOSUB *JIWA
  1082. 20810 LX=136     :LS=0:LY=90  :A$="FLOORS"    :GOSUB *JIWA
  1083. 20820 FTE=1:GOTO 11770
  1084. 20830 '
  1085. 20840 '
  1086. 20850 'スプライトを消す
  1087. 20860 '
  1088. 20870 '
  1089. 20880 *ERASESPR
  1090. 20890 FOR Y=0 TO 15:FOR X=0 TO 19
  1091. 20900   SPRITE 0,516+X-Y*20,0
  1092. 20910 NEXT:NEXT
  1093. 20920 IF ST=1 THEN 20940
  1094. 20930 FOR I=0 TO 40:SPRITE 0,I,0:NEXT:GOTO 20950
  1095. 20940 FOR I=0 TO 40:SPRITE 0,I,0:NEXT:GOTO 20950
  1096. 20950 IF MAN>0 THEN FOR I=80 TO 79+MAN:SPRITE 0,I,0:NEXT:SPRITE 0,68,0
  1097. 20960 SPRITE 0,69,0:SPRITE 0,79,0
  1098. 20970 SPRITE 0,41,0:SPRITE 0,70,0
  1099. 20980 SPRITE 0,39,0:SPRITE 0,180,0
  1100. 20990 SPRITE 0,38,0
  1101. 21000 IF IN=0 THEN 21050
  1102. 21010 IF MEN=11 THEN IN=1
  1103. 21020 FOR I=1 TO IN
  1104. 21030   SPRITE 0,75+I,0
  1105. 21040 NEXT
  1106. 21050 IF PN=0 THEN 21090
  1107. 21060 FOR I=1 TO PN
  1108. 21070   SPRITE 0,59+I,0
  1109. 21080 NEXT
  1110. 21090 IF EN=0 THEN 21130
  1111. 21100 FOR I=1 TO EN
  1112. 21110   SPRITE 0,60+PN+I,0
  1113. 21120 NEXT
  1114. 21130 RETURN
  1115. 21140 '
  1116. 21150 '
  1117. 21160 '文字をじわっと出す
  1118. 21170 '
  1119. 21180 '
  1120. 21190 *JIWA
  1121. 21200 FOR I=0 TO LEN(A$)-1
  1122. 21210   DEF SPRITE 1,LS+I,(LX+I*8,LY),106+ASC(MID$(A$,I+1,1))-65,1,1,0,200
  1123. 21220   SPRITE 0,LS+I,1
  1124. 21230 NEXT
  1125. 21240 FOR I=0 TO 31
  1126. 21250 FOR IM=0 TO LEN(A$)-1
  1127. 21260   SPRITE 2,LS+IM,200+I:FOR T=0 TO 10:NEXT
  1128. 21270 NEXT
  1129. 21280 NEXT
  1130. 21290 WAIT 300
  1131. 21300 FOR I=31 TO 0 STEP -1
  1132. 21310 FOR IM=0 TO LEN(A$)-1:FOR T=0 TO 10:NEXT
  1133. 21320   SPRITE 2,LS+IM,200+I
  1134. 21330 NEXT
  1135. 21340 NEXT
  1136. 21350 RETURN
  1137. 21360 '
  1138. 21370 '
  1139. 21380 '宝箱の属性を判定
  1140. 21390 '
  1141. 21400 '
  1142. 21410 *LETIF
  1143. 21420 IF UI<>0 OR ISUKA<>0 THEN RETURN
  1144. 21430 IF IZ(I)=3 THEN 21470
  1145. 21440 IF IZ(I)=0 THEN *MONO
  1146. 21450 IF IZ(I)=1 THEN IF ASB(MAS)=2 OR ASB(MAS)=1 THEN *MONO
  1147. 21460 IF IZ(I)=4 AND ASB(MAS)=2 THEN GOTO *MONO
  1148. 21470 RETURN
  1149. 21480 '
  1150. 21490 '
  1151. 21500 '宝箱が空っぽ
  1152. 21510 '
  1153. 21520 '
  1154. 21530 *TAKARASUKA
  1155. 21540 IF ISUKA=0 THEN RETURN
  1156. 21550 IF ISUKA<>1 THEN 21570
  1157. 21560 DEF SPRITE 1,39,(MWX%+MIX*16,MWY%+MIY*16-4),211,1,1,0,16:SPRITE 0,39,1:ISUKAS=0:ISUKAC=0:ISUKA=2:RETURN
  1158. 21570 ISUKAS=ISUKAS+1:IF ISUKAS=1 THEN SPRITE 6,39,0,-1:ISUKAS=0:ISUKAC=ISUKAC+1:IF ISUKAC=8 THEN ISUKA=0:SPRITE 0,39,0:IBO=0
  1159. 21580 RETURN
  1160. 21590 '
  1161. 21600 '
  1162. 21610 '宝を取る
  1163. 21620 '
  1164. 21630 '
  1165. 21640 *MONO
  1166. 21650 IF MAN=0 THEN SPRITE 0,68,1:MAS=1
  1167. 21660 IF MEN<11 THEN SPRITE 1,75+I,IZD(IZ(I))+1
  1168. 21670 IF INA(I)=0 THEN ISUKA=1:IBO=1:PCMPLAY PA%:RETURN
  1169. 21680 IF INA(I)=11 THEN SPRITE 1,71,210:ENDE=1:RETURN
  1170. 21690 PCMPLAY P3%
  1171. 21700 A1=IND(INA(I)):A2=IPD(INA(I))
  1172. 21710 A3=256-MAN*16
  1173. 21720 DEF SPRITE 1,45,(MWX%,MWY%),A1,1,1,0,A2
  1174. 21730 SPRITE 0,45,1:UI=1:INA=INA(I):INA(I)=0:IBO=1
  1175. 21740 IZ(I)=3:RETURN
  1176. 21750 '
  1177. 21760 '
  1178. 21770 '取った宝物を飛ばす
  1179. 21780 '
  1180. 21790 '
  1181. 21800 *TOBUITEM
  1182. 21810 IF UI=0 THEN RETURN
  1183. 21820 ON UI GOTO *UI1,*UI2,*UI3
  1184. 21830 *UI1
  1185. 21840 UX=(A3-MWX%)/20:UY=(210-MWY%)/20:UST=20
  1186. 21850 UUX=0:UUY=0:UUUX=0:UUUY=0:UK=0:UI=2:USTS=0
  1187. 21860 RETURN
  1188. 21870 *UI2
  1189. 21880 UUX=UUX+UX:A=UUX-UUUX
  1190. 21890 IF ABS(A)>=1 THEN UUUX=UUUX+FIX(A):SPRITE 6,45,FIX(A),0
  1191. 21900 UUY=UUY+UY:A=UUY-UUUY
  1192. 21910 IF ABS(A)>=1 THEN UUUY=UUUY+FIX(A):SPRITE 6,45,0,FIX(A)
  1193. 21920 UK=UK+1:IF UK=4 THEN UK=0
  1194. 21930 SPRITE 3,45,SK(UK) 
  1195. 21940 USTS=USTS+1:IF USTS=UST THEN UI=3
  1196. 21950 RETURN
  1197. 21960 *UI3
  1198. 21970 DEF SPRITE 1,80+MAN,(A3,210),A1,1,1,0,A2
  1199. 21980 SPRITE 0,80+MAN,1:SPRITE 0,45,0
  1200. 21990 ASB(MAN+1)=INA
  1201. 22000 MAN=MAN+1:IF MAN=1 THEN SPRITE 0,68,1:MAS=1
  1202. 22010 UI=0:IBO=0:RETURN
  1203. 22020 '
  1204. 22030 '
  1205. 22040 '宝物の整序
  1206. 22050 '
  1207. 22060 '
  1208. 22070 *UGOKUITEM
  1209. 22080 IF UJ=0 THEN RETURN
  1210. 22090 ON UJ GOTO *U1,*U2
  1211. 22100 *U1
  1212. 22110 IF MAS=MAN THEN IF MAN=1 THEN SPRITE 0,68,0:MAS=0:UJ=0:ASB(1)=0:MAN=MAN-1:RETURN ELSE SPRITE 6,68,16,0:MAS=MAS-1:UJ=0:ASB(MAS+1)=0:MAN=MAN-1:RETURN
  1213. 22120 FOR II=MAS+1 TO MAN
  1214. 22130   SPRITE 6,79+II,1,0
  1215. 22140 NEXT
  1216. 22150 UU=UU+1:IF UU=16 THEN UJ=2:UU=0
  1217. 22160 RETURN
  1218. 22170 *U2:MAN=MAN-1
  1219. 22180 SPRITE 1,79+MAS,SPRITE(80+MAS,1)
  1220. 22190 SPRITE 2,79+MAS,SPRITE(80+MAS,2)
  1221. 22200 SPRITE 0,79+MAS,1
  1222. 22210 IF MAS=MAN THEN 22290 
  1223. 22220 FOR II=MAS+1 TO MAN
  1224. 22230   SPRITE 0,79+II,0
  1225. 22240   SPRITE 1,79+II,SPRITE (80+II,1)
  1226. 22250   SPRITE 2,79+II,SPRITE (80+II,2)
  1227. 22260   SPRITE 6,79+II,-16,0
  1228. 22270   SPRITE 0,79+II,1
  1229. 22280 NEXT
  1230. 22290 SPRITE 0,80+MAN,0
  1231. 22300 FOR II=MAS TO MAN
  1232. 22310   ASB(II)=ASB(II+1)
  1233. 22320 NEXT
  1234. 22330 ASB(II+1)=0:UJ=0:RETURN
  1235. 22340 '
  1236. 22350 '
  1237. 22360 '鍵を取る
  1238. 22370 '
  1239. 22380 '
  1240. 22390 *ITEM
  1241. 22400 '
  1242. 22410 IF ITX(0)<>MCX*16 OR ITY(0)<>MCY*16 THEN RETURN
  1243. 22420 IF IZ(0)=5 THEN RETURN
  1244. 22430 IF MAN=0 THEN SPRITE 0,68,1:MAS=1
  1245. 22440 SPRITE 0,79,0
  1246. 22450 A1=91+INA(0):A2=12:A3=256-16-MAN*16
  1247. 22460 DEF SPRITE 1,45,(MWX%,MWY%),A1,1,1,0,A2
  1248. 22470 SPRITE 0,45,1:UI=1:INA=INA(0)
  1249. 22480 IZ(0)=5:UI=1
  1250. 22490 RETURN
  1251. 22500 '
  1252. 22510 '
  1253. 22520 '空っぽの宝箱を開ける
  1254. 22530 '
  1255. 22540 '
  1256. 22550 *NONKEYBOXOPEN
  1257. 22560 IF ISUKA<>0 OR UI<>0 OR UJ<>0 THEN RETURN
  1258. 22570 IF IZ(IM)=3 THEN RETURN
  1259. 22580 SPRITE 1,75+IM,IZD(IZ(IM))+1
  1260. 22590 IF INA(IM)=0 THEN ISUKA=1:PCMPLAY PA%:IZ(IM)=0:IBO=1:RETURN
  1261. 22600 PCMPLAY P3%
  1262. 22610 A1=IND(INA(IM)):A2=IPD(INA(IM))
  1263. 22620 A3=256-16-MAN*16
  1264. 22630 DEF SPRITE 1,45,(MWX%,MWY%),A1,1,1,0,A2
  1265. 22640 SPRITE 0,45,1:UI=1:INA=INA(IM)
  1266. 22650 IZ(IM)=3:IBO=1
  1267. 22660 RETURN
  1268. 22670 '
  1269. 22680 '
  1270. 22690 'アイテムを使う
  1271. 22700 '
  1272. 22710 '
  1273. 22720 *USEITEM 
  1274. 22730 '
  1275. 22740 IF ASB(MAS)>=3 THEN GOSUB *JUITEMUSE
  1276. 22750 IF MI<>0 THEN UJ=1:UU=0:SPRITE 0,79+MAS,0:RETURN
  1277. 22760 UJ=1:UU=0:SPRITE 0,79+MAS,0
  1278. 22770 FOR I=1 TO 3
  1279. 22780   IF (MCX+ML(MU))*16=ITX(I) AND (MCY+ML(MU+1))*16=ITY(I) THEN GOSUB *LETIF
  1280. 22790 NEXT
  1281. 22800 IF MCX+ML(MU)=HCX AND MCY+ML(MU+1)=HCY AND OJ=1 AND ASB(MAS)<=2 THEN OJ=2:SPRITE 1,69,91
  1282. 22810 RETURN
  1283. 22820 '
  1284. 22830 '
  1285. 22840 'アイテムの効能
  1286. 22850 '
  1287. 22860 '
  1288. 22870 *JUITEMUSE
  1289. 22880 A=ASB(MAS):GOSUB *HIKARU
  1290. 22890 IF A=3  THEN IF MEN<>11 THEN RETURN ELSE SAIG=1:SPRITE 2,40,30:RETURN
  1291. 22900 IF MEN=11 THEN RETURN
  1292. 22910 IF A=4  THEN TIMN=TIMN+TIMNUP:RETURN
  1293. 22920 IF A=5  THEN MUTEKI=1:TITE=0:PL=0:MUTH=SPRITE(40,2):SPRITE 2,40,HJ+24:PLAY OFF:PLAY ON:PLP=0:GOSUB *MUSICMUTEKI:IF TANMA=0 THEN PPLON=PLON:PLP=0:PLON=3:RETURN ELSE PLON=3:PLP=0:RETURN
  1294. 22930 IF A=6  THEN PL=-1:FOR A=0 TO PN-1:PB(A)=-1:PB=-1:NEXT:RETURN
  1295. 22940 IF A=7  THEN HS=H2S:RETURN
  1296. 22950 IF A=8  THEN HSHI=1:RETURN
  1297. 22960 IF A=9  THEN TANMA=1:TANMATIM=0:IF MUTEKI=0 THEN PL=0:PPLON=PLON:PLP=0:PLON=4:PLAY OFF:PLAY ON:PLP=0:GOSUB *MUSICTANMA ELSE RETURN
  1298. 22970 IF A=10 THEN BEAM=1:RETURN
  1299. 22980 '
  1300. 22990 '
  1301. 23000 '宝箱等が落ちていないかどうか調べる
  1302. 23010 '
  1303. 23020 '
  1304. 23030 *TAKARAFHN
  1305. 23040 IF IN=0 THEN 23080
  1306. 23050 FOR IM=1 TO IN
  1307. 23060   IF IFA(IM)=0 THEN IF FL%(ITX(IM)/16,ITY(IM)/16)=0 AND FU=0 THEN IFA(IM)=1
  1308. 23070 NEXT
  1309. 23080 IF IFA(0)=0 THEN IF FL%(ITX(0)/16,ITY(0)/16)=0 AND FU=0 THEN IF IZ(0)=2 THEN IFA(0)=1
  1310. 23090 IF IFO=0 THEN IF FL%(HCX,HCY)=0 AND FU=0 THEN IFO=1
  1311. 23100 IF IN=0 THEN 23190
  1312. 23110 FOR IM=1 TO IN
  1313. 23120   IF IFA(IM)=0 THEN 23180
  1314. 23130   IF IFA(IM)<>1 THEN 23160
  1315. 23140   IA=SPRITE (75+IM,1)
  1316. 23150   DEF SPRITE 1,516-ITY(IM)/16*20,(ITX(IM),ITY(IM)),IA,1,1,0,10:IFA(IM)=2:SPRITE 0,516-ITY(IM)/16*20,1:SPRITE 0,75+IM,0:IFT(IM)=0:IFY(IM)=ITY(IM):GOTO 23180
  1317. 23160   IF IFA(IM)=2 THEN SPRITE 6,516-ITY(IM)/16*20,0,INT(IFT(IM)):IFT(IM)=IFT(IM)+.5!:IFY(IM)=IFY(IM)+INT(IFT(IM)):IF IFY(IM)>200 THEN IFA(IM)=3:GOTO 23180 ELSE 23180
  1318. 23170   IF IFA(IM)=3 THEN SPRITE 0,516-ITY(IM)/16*20,0:IFA(IM)=4
  1319. 23180 NEXT
  1320. 23190 IF IFA(0)=0 THEN 23250
  1321. 23200 IF IFA(0)<>1 THEN 23230
  1322. 23210 IA=SPRITE (79,1)
  1323. 23220 DEF SPRITE 1,516-ITY(0)/16*20,(ITX(0),ITY(0)),IA,1,1,0,12:IFA(0)=2:SPRITE 0,516-ITY(0)/16*20,1:SPRITE 0,79,0:IFT(0)=0:IFY(0)=ITY(0):GOTO 23350
  1324. 23230 IF IFA(0)=2 THEN SPRITE 6,516-ITY(0)/16*20,0,INT(IFT(0)):IFT(0)=IFT(0)+.5!:IFY(0)=IFY(0)+INT(IFT(0)):IF IFY(0)>200 THEN IFA(0)=3:GOTO 23250 ELSE 23250
  1325. 23240 IF IFA(0)=3 THEN SPRITE 0,516-ITY(0)/16*20,0:IFA(0)=4
  1326. 23250 IF IFO=0 THEN RETURN
  1327. 23260 IF IFO<>1 THEN 23310
  1328. 23270 IA=SPRITE(69,1)
  1329. 23280 DEF SPRITE 1,516-HCY*20,(HCX*16,HCY*16),IA,1,1,0,2:IFO=2:SPRITE 0,516-HCY*20,1:SPRITE 0,69,0:IFIO=0:IFIF=HCX*16
  1330. 23290 IF HJ=1 THEN DEF SPRITE 1,516-HCY*20+15,(HCX*16,HCY*16),86,1,1,0,2:SPRITE 1,516-HCY*20+15,1:SPRITE 0,70,0
  1331. 23300 GOTO 23350
  1332. 23310 IF IFO<>2 THEN 23340
  1333. 23320 IF HJ=1 THEN SPRITE 6,516-HCY*20+15,0,INT(IFIO)
  1334. 23330 SPRITE 6,516-HCY*20,0,INT(IFIO):IFIO=IFIO+.5!:IFIF=IFIF+INT(IFIO):IF IFIF>230 THEN IFO=3:GOTO 23350 ELSE 23350
  1335. 23340 IF IFO=3 THEN SPRITE 0,516-HCY*20,0:IFO=4:IF HJ=1 THEN SPRITE 0,516-HCY*20+15,0
  1336. 23350 RETURN
  1337. 23360 '
  1338. 23370 '
  1339. 23380 '      死ぬ
  1340. 23390 '
  1341. 23400 '
  1342. 23410 *SHINU
  1343. 23420 IF SH=0 THEN RETURN
  1344. 23430 IF SH=6 THEN RETURN
  1345. 23440 IF SH=7 THEN RETURN
  1346. 23450 ON SH GOTO *S1,*S2,*S3,*S4,*S5
  1347. 23460 *S1
  1348. 23470 IF HJ=1 THEN SPRITE 1,40,HJ+93:PCMPLAY PC%,127
  1349. 23480 IF HJ=2 THEN DEF SPRITE 1,40,(MWX%,MWY%-4),94,1,1,0,0:DEF SPRITE 1,41,(MWX%-14,MWY%-4),82,1,1,0,2:SPRITE 0,40,1:SPRITE 0,41,1:PCMPLAY PC%,127
  1350. 23490 DEF SPRITE 1,38,(0,0),213,1,1,0,20:SPRITE 0,38,1
  1351. 23500 SHX=MWX%/10:SHY=(MWY%-4)/10:SH=2:SJX=0:SJY=0:SJC=0:SJN=0:SC=0
  1352. 23510 RETURN
  1353. 23520 *S2
  1354. 23530 SPRITE 6,38,INT(SJX+SHX)-INT(SJX),INT(SJY+SHY)-INT(SJY)
  1355. 23540 SJX=SJX+SHY:SJY=SJY+SHY:SJC=SJC+1
  1356. 23550 IF SJC=3 THEN SJC=0:SJN=SJN+1:SPRITE 1,38,SJ(SJN):IF SJN=6 THEN SJN=0
  1357. 23560 SC=SC+1:IF SC=10 THEN SH=3:SJN=0:SJC=0:SC=0
  1358. 23570 RETURN
  1359. 23580 *S3
  1360. 23590 SJC=SJC+1
  1361. 23600 IF SJC=1 THEN SJC=0:SJN=SJN+1:SPRITE 1,38,SJ(SJN):IF SJN=6 THEN SJN=0
  1362. 23610 SC=SC+1:IF SC=6 THEN SH=4:SJN=0:SJC=0:SC=0
  1363. 23620 RETURN
  1364. 23630 *S4
  1365. 23640 SJC=SJC+1
  1366. 23650 IF SJC=1 THEN SJC=0:SJN=SJN+1:SPRITE 1,38,SJ(SJN):IF SJN=6 THEN SJN=0
  1367. 23660 IF HJ=1 THEN SPRITE 6,38,-4,0:SPRITE 6,40,-4,0
  1368. 23670 IF HJ=2 THEN SPRITE 6,38,-4,0:SPRITE 6,40,-4,0:SPRITE 6,41,-4,0
  1369. 23680 SC=SC+4:IF SC<>16 THEN 23710
  1370. 23690 IF HJ=1 THEN MCX=MCX-1:SC=0:IF FL%(MCX,MCY)=0 THEN SH=5:DEF SPRITE 1,800,(MCX*16,MCY*16),94,1,1,0,0:SPRITE 0,800,1:SPRITE 0,40,0:SJC=0:SJN=0:SJ1=0:SJ2=0:SJH=0
  1371. 23700 IF HJ=2 THEN MCX=MCX-1:SC=0:IF FL%(MCX,MCY)=0 THEN SH=5:DEF SPRITE 1,800,(MCX*16,MCY*16),94,1,1,0,0:DEF SPRITE 1,801,(MCX*16-14,MCY*16),82,1,1,0,2:SPRITE 0,800,1:SPRITE 0,801,1:SPRITE 0,40,0:SPRITE 0,41,0:SJC=0:SJN=0:SJ1=0:SJ2=0:SJH=0
  1372. 23710 RETURN
  1373. 23720 *S5
  1374. 23730 IF SJ2=1 THEN 23780
  1375. 23740 SJC=SJC+1
  1376. 23750 IF SJC=1 THEN SJC=0:SJN=SJN+1:SPRITE 1,38,SJ(SJN):IF SJN=6 THEN SJN=0
  1377. 23760 SPRITE 6,38,-1,-1
  1378. 23770 IF SPRITE (38,6)<1 OR SPRITE (38,7)<1 THEN SJ2=1
  1379. 23780 IF SJ1=1 THEN 23840 
  1380. 23790 IF HJ=1 THEN SPRITE 6,800,0,SJH
  1381. 23800 IF HJ=2 THEN SPRITE 6,800,0,SJH:SPRITE 6,801,0,SJH
  1382. 23810 SJH=SJH+.5!
  1383. 23820 MWY%=MWY%+INT(SJH)
  1384. 23830 IF MWY%>230 THEN SJ1=1
  1385. 23840 IF SJ1=1 AND SJ2=1 THEN SH=6
  1386. 23850 RETURN
  1387. 23860 *S6:WAIT 50:IF SHG=1 THEN SHG=0
  1388. 23870 PLAY OFF:PLAY ON:FTE=1:IF HALE<>0 THEN GOSUB *ERASESPR
  1389. 23880 FOR I=0 TO PN-1:PJ(I)=5:NEXT
  1390. 23890 FOR I=0 TO EN-1:EJ(I)=0:NEXT
  1391. 23900 IF SHST=1 THEN *S8
  1392. 23910 HALE=HALE-1:IF HALE=-1 THEN *GAMEOVER
  1393. 23920 GOTO 11770
  1394. 23930 '
  1395. 23940 '
  1396. 23950 'ゲームオーバー
  1397. 23960 '
  1398. 23970 '
  1399. 23980 *GAMEOVER:PLAY OFF:PLAY ON
  1400. 23990 LX=100     :LY=100:LS=27:A$="GAME":GOSUB *WORDSPR
  1401. 24000 LX=100+16*3:LY=100:LS=38:A$="OVER":GOSUB *WORDSPR
  1402. 24010 GOSUB *MUSICGAMEOVER
  1403. 24020 IF PLAY(0)=0 THEN ST=1:GOSUB *ERASESPR:WAIT 200:CLS:WAIT 300:GOTO *TITLE
  1404. 24030 GOTO 24020
  1405. 24040 *S7
  1406. 24050 GOSUB *ERASESPR:PLAY OFF:PLAY ON
  1407. 24060 CLS:G$="CDEF+G+[A+>C<A+G+F+E[D":PLAY "T32@72O1V15C1&C1&C1","@72O1V15C+1&C+1&C+1","@63V10O4L20"+G$+G$+G$,"U90@63V7O4L20R40"+G$+G$+G$+G$+G$+"C"
  1408. 24070 LX=136+8*1.5!:LY=90:LS=0:A$="YOU"       :GOSUB *JIWA
  1409. 24080 LX=136:  LS=0:LY=90     :A$="KILLED"    :GOSUB *JIWA
  1410. 24090 LX=136   :LS=0:LY=90    :A$="KARIENA"   :GOSUB *JIWA
  1411. 24100 WAIT 200:PLAY OFF:PLAY ON
  1412. 24110 FTE=1:GOTO 11770
  1413. 24120 *S8:PLAY OFF:PLAY ON
  1414. 24130 LX=100     :LY=90:LS=27:A$="TIME":GOSUB *WORDSPR
  1415. 24140 LX=100+10*5:LY=90:LS=38:A$="OVER":GOSUB *WORDSPR
  1416. 24150 GOSUB *MUSICGAMEOVER
  1417. 24160 IF PLAY(0)=0 THEN ST=1:GOSUB *ERASESPR:WAIT 200:CLS:WAIT 300:GOTO 24180
  1418. 24170 GOTO 24160
  1419. 24180 HALE=HALE-1:IF HALE=-1 THEN *TITLE
  1420. 24190 GOTO 11770
  1421. 24200 '
  1422. 24210 '
  1423. 24220 '画面を光らせる
  1424. 24230 '
  1425. 24240 '
  1426. 24250 *HIKARU
  1427. 24260 IA=SPRITE(40,2)
  1428. 24270 SPRITE 2,40,27:WAIT 50:SPRITE 2,40,IA
  1429. 24280 RETURN
  1430. 24290 '
  1431. 24300 '
  1432. 24310 '
  1433. 24320 '無敵とタンマウォッチの処理
  1434. 24330 '
  1435. 24340 '
  1436. 24350 *TAMA
  1437. 24360 IF SHST<>0 THEN RETURN
  1438. 24370 IF TIMN<=1000 THEN SHST=1:SH=1:RETURN
  1439. 24380 IF CDS=4 THEN 24470
  1440. 24390 IF TIME-TIMNJUST<=1 THEN 24470
  1441. 24400 IF TANMA=1 THEN TANMATIM=TANMATIM+1 ELSE 24430
  1442. 24410 IF MUTEKI=0 THEN TIMNJUST=TIMNJUST+1
  1443. 24420 IF TANMATIM=TAT THEN TANMA=0:IF MUTEKI=0 THEN PLON=PPLON:PL=0:PLAY OFF:PLAY ON:GOSUB *MUSICSEN
  1444. 24430 IF MUTEKI=0 THEN TIMNJUST=TIMNJUST+1:IF TANMA=0 THEN TIMN=TIMN-1:LS=4:A&=TIMN:GOSUB *NUMSPRHEN:GOTO 24470
  1445. 24440 IF MUTEKI=1 THEN TIMNJUST=TIMNJUST+1:TITE=TITE+1:IF TITE=MTT THEN MUTEKI=2:MUS=0:MUSS=0:GOTO 24470
  1446. 24450 IF MUTEKI=2 THEN TIMNJUST=TIMNJUST+1:MUS=MUS+1:IF MUS=1 THEN GOSUB *MUHEN1 ELSE IF MUS=2 THEN GOSUB *MUHEN2:MUS=0:MUSS=MUSS+1:IF MUSS=4 THEN MUTEKI=3:GOTO 24470
  1447. 24460 IF MUTEKI=3 THEN TIMNJUST=TIMNJUST+1:SPRITE 2,40,(HJ-1)*4:MUTEKI=0:IF TANMA=0 THEN PLON=PPLON:PL=0:PLAY OFF:PLAY ON:GOSUB *MUSICSEN ELSE PLP=0:PLON=4:PL=0:PLAY OFF:PLAY ON:GOSUB *MUSICTANMA 
  1448. 24470 RETURN
  1449. 24480 '
  1450. 24490 '
  1451. 24500 'タイトル
  1452. 24510 '
  1453. 24520 '
  1454. 24530 *TITLE
  1455. 24540 GOSUB *JUM1:LOAD@"B:CLASSIC1.PMB":GOSUB *JUM2
  1456. 24550 CLS:PL=0:TITS=0:AA=0:A=0:WAIT 40:PLAY OFF:PLAY ON
  1457. 24560 RESTORE 24800
  1458. 24570 FOR I=0 TO 20
  1459. 24580   READ A$(I),B(I)
  1460. 24590 NEXT
  1461. 24600 RESTORE 24620
  1462. 24610 SYMBOL(72,80),"Ｎｉｇｈｔ　Ｆｉｇｈｔ",1,1,7
  1463. 24620 DATA "GHS　@MX　JDX",100,120,7
  1464. 24630 DATA "OQNCTBDC　AX　GZLNQHJ@V@",50,140,7
  1465. 24640 FOR I=0 TO 1:READ A$,X,Y,C:FOR II=1 TO KLEN(A$):SYMBOL(X+9*II,Y),KMID$(A$,II,1),1,1,C:NEXT:NEXT
  1466. 24650 GOSUB *MUSICTITLE
  1467. 24660 IF PAD(1)<>0 OR PTRIG(1)<>0 THEN CLS:PLAY OFF:PLAY ON:OUT&H440,17:OUT&H443,0:GOTO 11340
  1468. 24670 IF PLAY(1)=PL AND PL<15 THEN PL=PL+1:ON PL GOSUB 26860,26870,26880,26890,26900,26910,26920,26930,26940,26950,26960,26970,26980,26990
  1469. 24680 IF AA=21 THEN TITS=TITS+1:IF TITS=8000 THEN 24730 ELSE 24670
  1470. 24690 OUT &H440,17:OUT &H443,A
  1471. 24700 IF A MOD 12=0 THEN AA=AA+1:LINE(42,((A+226) MOD 256)+6)-STEP(240,16),PSET,0,BF:A$=A$(AA-1):N=KLEN(A$):FOR T=1 TO N:PRINT A:SYMBOL(42+T*B(AA-1),((A+226) MOD 256)+6),KMID$(A$,T,1),1,1,7:NEXT ELSE WAIT 15
  1472. 24710 A=A+1:IF A=256 THEN A=0
  1473. 24720 GOTO 24660
  1474. 24730 FOR II=0 TO 11:FOR I=0 TO 239 STEP 12:III=10+I+II:LINE(0,III)-(319,III),PSET,0:NEXT:WAIT 1:NEXT
  1475. 24740 FOR I=0 TO 255 STEP 32:SYMBOL(56,100),"OTRG　@　ATSSNM",1,1,[I,I,I]:WAIT 4:NEXT
  1476. 24750 WAIT 400
  1477. 24760 FOR I=255 TO 0 STEP -32:SYMBOL(56,100),"OTRG　@　ATSSNM",1,1,[I,I,I]:WAIT 4:NEXT:CLS
  1478. 24770 WAIT 300
  1479. 24780 OUT &H440,17:OUT&H443,0:GOTO 24550
  1480. 24790 '
  1481. 24800 DATA "　　　　　　　　　　RSNQX　　　　　　　　　　　",9
  1482. 24810 DATA "　　　　　　　　　　　　　　　　　　　　　　　　　　",9
  1483. 24820 DATA "　　　　　　　　　　　　　　　　　　　　　　　　　　",9
  1484. 24830 DATA "GDQD　SGD　JHMFCNL　G@R　ADDM",9.3
  1485. 24840 DATA "OD@BDETK　ENQ　@　KNMF　SHLD[",9.3
  1486. 24850 DATA "JHMF　QNRSDQ\R　C@TFGSDQZSGD",9
  1487. 24860 DATA "AD@TSHETK　OQHMBDRRZOKHMZ",9.7
  1488. 24870 DATA "G@R　SDM　J@QHDM@RZVGN　RDQUD",9
  1489. 24880 DATA "GDQ[NMD　C@XZJHMF　QNRSDQ\R",9.3
  1490. 24890 DATA "CHRS@MS　QDK@SHUDZO@MHTRZ",9.7
  1491. 24900 DATA "@ACTBSDC　OKHM　@MC　GDQ　SDM",9.3
  1492. 24910 DATA "J@QHDM@R[O@MHTR　BNMEHMDC",9.7
  1493. 24920 DATA "SGDL　HM　@HQ　K@MCZVGDQD　GHR",9
  1494. 24930 DATA "CDUHKR　@SS@BJ　@MXNMD　VGN",9.7
  1495. 24940 DATA "SQX　SN　HMU@CD　SGDQD　HM　SGD",9
  1496. 24950 DATA "C@XSHLD[XNT　@QD　G@MBDZSGHR",9
  1497. 24960 DATA "F@LD\R　GDQN[XNT　LTRS　R@UD",9.3
  1498. 24970 DATA "OKHM　@MC　SGD　J@QDHM@R　@S",9.7
  1499. 24980 DATA "MHFGSZEHFGSHMF　@KK　CDUHKR[",9
  1500. 24990 DATA "　　　　　　　　　　　　　　　　　　　　　　　　　　",9
  1501. 25000 DATA "　　　　　　　　　　　　　　　　　　　　　　　　　　",9
  1502. 25010 '
  1503. 25020 '
  1504. 25030 'パニアス
  1505. 25040 '
  1506. 25050 '
  1507. 25060 *PANIUS
  1508. 25070 IF SH<>0 THEN RETURN
  1509. 25080 IF PANI=0 THEN RETURN
  1510. 25090 IF PANI<>1 THEN 25120
  1511. 25100 SPRITE 6,32,0,1:PACNY=PACNY+1:IF PACNY=80 THEN PANI=2
  1512. 25110 RETURN
  1513. 25120 IF PATOBI<>0 THEN GOSUB *PAGA
  1514. 25130 IF PANI<>2 THEN 25170
  1515. 25140 IF PATOBI=0 THEN SPRITE 1,32,230:PANI=3:PANIHS=0
  1516. 25150 GOSUB *PANIMO
  1517. 25160 RETURN
  1518. 25170 IF PANI<>3 THEN 25210
  1519. 25180 PANIHS=PANIHS+1:IF PANIHS=4 THEN SPRITE 1,32,236:PANIHS=0:PANI=4
  1520. 25190 GOSUB *PANIMO
  1521. 25200 RETURN
  1522. 25210 IF PANI<>4 THEN 25250
  1523. 25220 PANIHS=PANIHS+1:IF PANIHS=4 THEN SPRITE 1,32,230:PANIHS=0:PANI=5:IF PATOBI=0 THEN GOSUB *PAGA
  1524. 25230 GOSUB *PANIMO
  1525. 25240 RETURN
  1526. 25250 IF PANI<>5 THEN 25290
  1527. 25260 PANIHS=PANIHS+1:IF PANIHS=4 THEN SPRITE 1,32,224:PANIHS=0:PANI=2
  1528. 25270 GOSUB *PANIMO
  1529. 25280 RETURN
  1530. 25290 IF PANI<>6 THEN 25320
  1531. 25300 SPRITE 6,32,0,6:PANIHS=PANIHS+1:SPRITE 6,32,(PANIHS MOD 2)*2-1,0:IF SPRITE (32,7)>230 THEN SPRITE 0,32,0:PANI=7:DEF SPRITE 1,71,(128,0),209,1,1,0,10:SPRITE 0,71,1:GOSUB *MUSICBEND:PLON=7:PL=0:PLP=0:SPRITE 1,70,84
  1532. 25310 RETURN
  1533. 25320 IF PANI<>7 THEN 25350
  1534. 25330 SPRITE 6,71,0,1:IF SPRITE(71,7)=112 THEN PANI=8
  1535. 25340 RETURN
  1536. 25350 IF PANI<>8 THEN 25350
  1537. 25360 IN=2:ITX(2)=128:ITY(2)=112:IZ(2)=4:INA(2)=11
  1538. 25370 RETURN
  1539. 25380 '
  1540. 25390 '
  1541. 25400 'パニアスを回転
  1542. 25410 '
  1543. 25420 '
  1544. 25430 *PANIMO
  1545. 25440 PACT=PACT+.03!
  1546. 25450 PACXX=PACR*COS(PACT)+PACX
  1547. 25460 PACYY=PACR*SIN(PACT)+PACY
  1548. 25470 SPRITE 6,32,INT(PACXX)-INT(PACNX),INT(PACYY)-INT(PACNY)
  1549. 25480 PACNX=PACXX:PACNY=PACYY
  1550. 25490 RETURN
  1551. 25500 '
  1552. 25510 '
  1553. 25520 'パニアスが弾を飛ばす
  1554. 25530 '
  1555. 25540 '
  1556. 25550 *PAGA
  1557. 25560 PANU=PANU+1
  1558. 25570 IF PANU<>5 THEN 25590
  1559. 25580 PANU=0
  1560. 25590 IF PATOBI<>0 THEN 25630
  1561. 25600 DEF SPRITE 1,31,(PACNX,PACNY),242,1,1,0,28:SPRITE 0,31,1:PATOBIS=0:PATOBIT=0
  1562. 25610 PAXM=MWX%:PAYM=MWY%:PAX=(MWX%-PACNX):PAY=(MWY%-PACNY):PAQ=SQR(PAX^2+PAY^2):PAX=PAX/PAQ*6:PAY=PAY/PAQ*6:PATOBI=1
  1563. 25620 RETURN
  1564. 25630 IF PATOBI=1 THEN PATOBIS=PATOBIS+1:IF PATOBIS=2 THEN PATOBIS=0:PATOBIT=PATOBIT+1:SPRITE 1,31,(PATOBIT MOD 2)+242:IF PATOBIT=4 THEN PATOBI=2:RETURN ELSE RETURN
  1565. 25640 IF PATOBI=2 THEN PATOBI=3:PAXG=0:PAYG=0:PAK=0:PCMPLAY PB%,127
  1566. 25650 IF PATOBI<>3 THEN 25690
  1567. 25660 PPAX=PAXG:PPAY=PAYG:PAXG=PAXG+PAX:PAYG=PAYG+PAY:SPRITE 6,31,FIX(PAXG)-FIX(PPAX),FIX(PAYG)-FIX(PPAY):PAK=PAK+1:IF PAK=3 THEN PAK=0:PAKL=PAKL+1:SPRITE 1,31,(PAKL MOD 2)+242
  1568. 25670 IF ABS (SPRITE (31,6)-PAXM)<8 AND ABS(SPRITE (31,7)-PAYM)<8 THEN PATOBI=4
  1569. 25680 RETURN
  1570. 25690 IF PATOBI<>4 THEN 25720
  1571. 25700 IF TOKU=0 THEN IF ABS(MWX%-SPRITE(31,6))<8 AND ABS(MWY%-SPRITE(31,7))<8 THEN SPRITE 1,40,94:SH=1:RETURN
  1572. 25710 FOR I=0 TO 3:DEF SPRITE 1,28+I,(SPRITE (31,6),SPRITE (31,7)),244+I,1,1,0,28:SPRITE 0,28+I,1:NEXT:PATOBI=5:PAM=0
  1573. 25720 IF PATOBI=5 THEN SPRITE 6,28,-2,-2:SPRITE 6,29,2,-2:SPRITE 6,30,-2,2:SPRITE 6,31,2,2:PAM=PAM+1:IF PAM=10 THEN PAM=0:FOR I=0 TO 3:SPRITE 0,28+I,0:NEXT:PATOBI=0:RETURN ELSE RETURN
  1574. 25730 RETURN
  1575. 25740 '
  1576. 25750 '
  1577. 25760 'ハンスがパニアスに弾を飛ばす
  1578. 25770 '
  1579. 25780 '
  1580. 25790 *TAMATOBI
  1581. 25800 IF SAIG<2 THEN RETURN
  1582. 25810 SPRITE 6,38,TAMASX,TAMASY
  1583. 25820 IF ABS(SPRITE(38,6)-128)>128 OR ABS(SPRITE(38,7)-128)>128 THEN SPRITE 0,38,0:SAIG=1
  1584. 25830 IF PANI<>0 THEN IF ABS(SPRITE(38,6)-PACNX-8)<16 AND ABS(SPRITE(38,7)-PACNY-16)<24 THEN SPRITE 2,32,31:WAIT 5:SPRITE 2,32,28:SPRITE 0,38,0:SAIG=1:TAHA=TAHA+1:IF TAHA=20 THEN PANI=6:PLAY OFF:PLAY ON:SPRITE 2,40,0:SAIG=0
  1585. 25840 RETURN
  1586. 25850 '
  1587. 25860 '
  1588. 25870 'まだ未完成のエンディング
  1589. 25880 '
  1590. 25890 '
  1591. 25900 *ENDING
  1592. 25910 MIX=(128-MWX%)/16:MIY=(112-MWY%)/16
  1593. 25920 HIX=2:HIY=0
  1594. 25930 DEF SPRITE 1,39,(128,112),252,1,1,0,10:SPRITE 0,39,1
  1595. 25940 FOR I=0 TO 15:WAIT 10:SPRITE 6,40,MIX,MIY:SPRITE 6,70,HIX,HIY:NEXT
  1596. 25950 WAIT 100
  1597. 25960 FOR I=0 TO 10
  1598. 25970   SPRITE 0,40,0:SPRITE 0,70,0:SPRITE 1,71,209:SPRITE 0,39,0
  1599. 25980   WAIT 10
  1600. 25990 NEXT
  1601. 26000 FOR I=0 TO 140
  1602. 26010   SPRITE 6,71,0,-1
  1603. 26020   WAIT 20
  1604. 26030   IF PLON=7 THEN IF PLAY(1)=PL THEN PL=PL+1:ON PL-PLP*4 GOSUB 28170,28180,28190,28200,28210,28220,28230,28250,28260,28270,28280,28290,28300,28310,28320:IF PL>11 THEN IF (PL-11) MOD 4=0 THEN PLP=PLP+1
  1605. 26040 NEXT
  1606. 26050 CLS:GOSUB *ERASESPR
  1607. 26060 SYMBOL(104,60),"エンディング未完成",1,1,7
  1608. 26070 SYMBOL(128,90),"請うご期待！",1,1,7
  1609. 26080 SYMBOL(64,130),"Ａボタンを押してください",1,1,5
  1610. 26090 IF PTRIG(1)=1 THEN CLS:PLAY OFF:PLAY ON:GOTO *TITLE
  1611. 26100 IF PLON=7 THEN IF PLAY(1)=PL THEN PL=PL+1:ON PL-PLP*4 GOSUB 28170,28180,28190,28200,28210,28220,28230,28250,28260,28270,28280,28290,28300,28310,28320:IF PL>11 THEN IF (PL-11) MOD 4=0 THEN PLP=PLP+1
  1612. 26110 GOTO 26090
  1613. 26120 '
  1614. 26130 '
  1615. 26140 '音楽を選択
  1616. 26150 '
  1617. 26160 '
  1618. 26170 *MUSICSEN
  1619. 26180 PLP=0
  1620. 26190 IF PLON=1 THEN GOSUB *MUSICNORMAL:RETURN
  1621. 26200 IF PLON=2 THEN GOSUB *MUSICHIME  :RETURN
  1622. 26210 '
  1623. 26220 '
  1624. 26230 'ＷＡＩＴ　Ａ　ＭＯＭＥＮＴを出す
  1625. 26240 '
  1626. 26250 '
  1627. 26260 *JUM1
  1628. 26270 A$="V@HS　@　LNLDMS"
  1629. 26280 FOR I=1 TO 13:SYMBOL(100+9*I,100),KMID$(A$,I,1),1,1,7:NEXT
  1630. 26290 RETURN
  1631. 26300 '
  1632. 26310 '
  1633. 26320 'ＷＡＩＴ　Ａ　ＭＯＭＥＮＴを消す
  1634. 26330 '
  1635. 26340 '
  1636. 26350 *JUM2
  1637. 26360 LINE(100,100)-STEP(9*14,10),PSET,0,BF
  1638. 26370 RETURN
  1639. 26380 '
  1640. 26390 '
  1641. 26400 '無敵の時のパレット変更
  1642. 26410 '
  1643. 26420 '
  1644. 26430 *MUHEN1
  1645. 26440 SPRITE 2,40,(HJ-1)*4:RETURN
  1646. 26450 *MUHEN2
  1647. 26460 SPRITE 2,40,HJ+24:RETURN
  1648. 26470 '
  1649. 26480 '
  1650. 26490 '文字をスプライトにして表示
  1651. 26500 '
  1652. 26510 '
  1653. 26520 *WORDSPR
  1654. 26530 FOR IM=0 TO LEN(A$)-1
  1655. 26540   DEF SPRITE 1,LS+IM,(LX+IM*8,LY),ASC(MID$(A$,IM+1,1))-55+96,1,1,0,3
  1656. 26550   IF LS<>26 THEN SPRITE 0,LS+IM,1
  1657. 26560 NEXT:RETURN
  1658. 26570 '
  1659. 26580 '
  1660. 26590 '数字をスプライトにして表示
  1661. 26600 '
  1662. 26610 '
  1663. 26620 *NUMSPR
  1664. 26630 FOR IM=0 TO LEN(STR$(A&))-3
  1665. 26640   DEF SPRITE 1,LS+IM,(LX+IM*8,LY),ASC(MID$(STR$(A&),IM+3,1))-48+96,1,1,0,3
  1666. 26650   SPRITE 0,LS+IM,1
  1667. 26660 NEXT:RETURN
  1668. 26670 '
  1669. 26680 '
  1670. 26690 'スプライトになっている数字を変える
  1671. 26700 '
  1672. 26710 '
  1673. 26720 *NUMSPRHEN
  1674. 26730 FOR IM=0 TO LEN(STR$(A&))-3
  1675. 26740   SPRITE 1,LS+IM,ASC(MID$(STR$(A&),IM+3,1))-48+96
  1676. 26750 NEXT:RETURN
  1677. 26760 '
  1678. 26770 '
  1679. 26780 'タイトルの音楽
  1680. 26790 '
  1681. 26800 '
  1682. 26810 *MUSICTITLE
  1683. 26820 PLAY OFF:PLAY ON:A$="O6V2@36D8D16D16D8D8":G$=A$+A$+A$+A$
  1684. 26830 GG$=A$+A$+"V13@37O4C2R8V5C8C8C8"
  1685. 26840 GGG$="@37O1V1E8E8V5E8V1E8E8E8V5E8V1E8":GGG$=GGG$+GGG$
  1686. 26850 PLAY "%S8/4V2T174@30O4L8DEFGAGFEDEFGAGFE",G$,"V5@26O3L8DDDDDDDDDDDDDDDD","V5@16A2A2A2A2","V5@16D2D2D2D2",,"V5@1O4D2.AD2.<A8>C8","V8@1O6D2.AD2.<A8>C8","V2@3O4D1&D1","V2@3O4A1&A1","V3@3O5A2G2F2E2":RETURN
  1687. 26860 PLAY "DEFGAGFEDEFGAGFE",G$,"<A+A+A+A+A+A+A+A+A+A+A+A+A+A+A+A+","A+2A+2A+2A+2","D2D2D2D2",,"D2.AD2.<A8>D8","D2.AD2.<A8>D8","D1&D1","A+1A+1","D1E2F2":RETURN
  1688. 26870 PLAY "CDEFGFEDCDEFGFED",G$,">CCCCCCCCCCCCCCCC",">C2C2<A+2A+2","E2E2E2E2",,"E1GF8EC8<A","E1GF8EC8<A","E1&E1",">C1<A+1","G1&G1":RETURN
  1689. 26880 PLAY "DEFGAGFED1",GG$,"DDDDDDDD<V5A4","R1R8A8G8F8E2","R1R8F8E8D8C+2",,">D1R1",">D1R1","D1","A1","A1>A1":RETURN
  1690. 26890 PLAY "]]O4L8DEFGAGFEDEFGAGFE",G$,"@V1O3L8D<A>D<A>D<A>D<A>D<A>D<A>D<A>D<A","A2A2A2A2","D2D2D2D2",,"AA8G8ADF8GA4A8G8F8","AA8G8ADF8GAA8G8F8","O4D1&D1","O4A1&A1","O5A2G2F2E2":RETURN
  1691. 26900 PLAY "CDEFGFED4EFGAGFE",G$,">ECECECECD<A>D<A>D<A>D<A",">C2C2<A2A2","E2E2D2D2",,"GG8A8>C<AD1","GG8A8>C<AD1","E1D1",">C1<A1","G1A1":RETURN
  1692. 26910 PLAY "O4L8DEFGAGFEDEFGAGFE",G$,"@V1O3L8D<A>D<A>D<A>D<A>D<A>D<A>D<A>D<A","A2A2A2A2","D2D2D2D2",,"AA8G8ADF8GA4A8>D8F8","AA8G8ADF8GAA8G8F8","O4D1&D1","O4A1&A1","O5A2G2F2E2","V6@2FF8E8F<A>D8EFF8G8A8":RETURN
  1693. 26920 PLAY "CDEFGFED4EFGAGFE",G$,">ECECECECD<A>D<A>D<A>D<A",">C2C2<A2A2","E2E2D2D2",,"GG8A8>C<AD1","GG8A8>C<AD1","E1D1",">C1<A1","G1A1","EE8F8GEF1":RETURN
  1694. 26930 PLAY "EFGAA+AGFDEFGAGFE",G$,">ECECECECD<A>D<A>D<A>D<A",">C2C2<A2A2","E2E2D2D2","@63V6O3EE8F8GEF1","<EE8F8GEF1","EE8F8GED1","E1D1",">C1<A1","G1A1","V3>A+1A1":RETURN
  1695. 26940 PLAY "EFGAA+AGFDEFGAGFE",G$,">ECECECECD<A>D<A>D<A>D<A",">C2C2<A2A2","E2E2D2D2","GG8A8A+GA1","EE8F8G>C<A1","EE8F8G>C<A1","E1D1",">C1<A1","G1A1","G1F1":RETURN
  1696. 26950 PLAY "T174DEFGAGFEDEFGAGFE",G$,">D<A+>D<A+>D<A+>D<A+>D<A+>D<A+>D<A+>D<A+","A+2A+2A+2A+2","D2D2D2D2",,"A+A+A+8A8GG8A8A+4A+8>C8<A+","FFF8E8DD8E8FF8G8F","D1D1","A+1A+1","D2C2<B-1":RETURN
  1697. 26960 PLAY "R",,"A8A4A4A4A8A2.>A","A8A4A4A4A8A1","]]]]]E8E4E4E4E8E1",,"A8A4A4A4A8A1","<A8A4A4A4A8A2.@2O5V6F8E8","E1","A1O5@3V7R2.F8E8":RETURN
  1698. 26970 PLAY "V6@27O3L8DDDDDDDDDDDDDDDD","@37V9L8DDDDDDDDDDDDDDDD","@38V8O4DDDDDDDDDDDDDDDD","V9@30O5A1>D1","@30U140V6L4RO5A[[A[[AR]]]]>D[[D[[D]]]]",,"@3V4O5A1A1","@3V4O5E1F1","V6@2O5D1D1","@3V7O5D1<A+1":RETURN
  1699. 26980 PLAY "V6@27O3L8DDDDDDDDDDDDDDDD","@37V9L8DDDDDDDDDDDDDDDD","@38V8O4DDDDDDDDDDDDDDDD","F1A+1","RF[[F[[F]]]]RA+[[A+[[A+",,"@3V4O5A1A1","@3V4O5E1F1","V6@2O5D1D1","@3V7O5D1F1":RETURN
  1700. 26990 PLAY "D1]]R2]]]D8D8D","D","D1.]]]]]]D8D8D","<<D1.","]]U200D1U0",,"A1.","E1.","D1.","D1.":RETURN
  1701. 27000 '
  1702. 27010 '
  1703. 27020 '１１面の音楽
  1704. 27030 '
  1705. 27040 '
  1706. 27050 *MUSICLAST
  1707. 27060 PC$="CCCCCCCCCCCCCCCC":PF$="FFFFFFFFFFFFFFFF":PG$="GGGGGGGGGGGGGGGG"
  1708. 27070 PLAY "T160%S8/4V5L8@27O4CCCCCCCCCCCCCCCC","V5L8@27O4R1FFFFFFFF","V5L8@27O4":RETURN
  1709. 27080 PLAY PC$,PF$,PG$:RETURN
  1710. 27090 PLAY "L8"+PC$,"L8"+PF$,"L8"+PG$,"V8O6@34C1<B2..G8","V6@30O5C1<B2..G8":RETURN
  1711. 27100 PLAY PC$,PF$,PG$,"R16F1&F2...","R16F1&F2...":RETURN
  1712. 27110 PLAY PC$,PF$,PG$,">C1<B2..G8",">C1<B2..G8":RETURN
  1713. 27120 PLAY PC$,PF$,PG$,"R16F1&F2...","R16F1&F2...":RETURN
  1714. 27130 PLAY PC$,PF$,PG$,"D8F2D8F2G8F2D8","D8F2D8F2G8F2D8":RETURN
  1715. 27140 PLAY "%S9/4"+PC$+"CC",PF$+"FF",PG$+"GG","F1D8F2D8F2","F1D8F2D8F2":RETURN
  1716. 27150 PLAY "%S8/4"+PC$,PF$,PG$,"G8F2D8F1&F","G8F2D8F1&F":RETURN
  1717. 27160 PLAY "V6Q8T140L4C.C8C.D8C.C8C.C8","V6Q8L4F.F8F.G8F.E8F4.F8","V6Q8L4G.G8G.A8G.G8G.G8":RETURN
  1718. 27170 PLAY "T140L4C.C8C.D8C.C8C2","L4F.F8F.G8F.E8F2","L4G.G8G.A8G.F8G2":RETURN
  1719. 27180 '
  1720. 27190 '
  1721. 27200 'パニアスが登場した時の音楽
  1722. 27210 '
  1723. 27220 '
  1724. 27230 *MUSICPANIUS
  1725. 27240 PLAY "%S4/4T160Q8@1O5L4V10E12C12<A12>ED12<B12G12>D4","O4V3L4@26ARGR","@37L4V10O1":RETURN
  1726. 27250 G$="@38V15O4F@37O1V10F":G$=G$+G$+G$+G$
  1727. 27260 PLAY "<<{FEDEFGAGFGAB>C<BAB>CDEF}1","L8<FFFFFFFF","L8@38"+G$:RETURN
  1728. 27270 PLAY "E1","E8E16E16E8E8EG+B>E","V5E8E16E16E8E8EG+B>E":RETURN
  1729. 27280 PLAY "V10<A.E8G.B8","<<A>E<A>E<A>E<A>E","RERERERE","V2@30O4L4CCCC","V2@30L4O3AAAA":RETURN
  1730. 27290 PLAY "A1","<A>E<A>E<A>E<A>E","RERERERE","CCCC","AAAA","@9V1L4R2O2A8B8>C8D8":RETURN
  1731. 27300 PLAY "]A.E8G.>D8","<A>E<A>E<A>E<A>E","RERERERE","CCCC","AAAA","E2D4.<B8":RETURN
  1732. 27310 PLAY "<A1","<A>E<A>E<A>E<A>E","RERERERE","CCCC","AAAA","A2>E8D8E4":RETURN
  1733. 27320 PLAY ">F.C8<B8>C8D8F8","<A>F<A>F<A>F<A>F","RERERERE","CCCC","FFFF","<FAB2":RETURN
  1734. 27330 PLAY "G<B>CD8E8","<G>E<G>E<G>E<G>E","RERERERE","<GGBA","EEEE","GB>C2":RETURN
  1735. 27340 PLAY "F2F8A8G8F8","<D4D4C4D4","RERERERE","AAAA","DDCD","F1":RETURN
  1736. 27350 PLAY "E1","E2R8EEE>>","E","B1","E1","E1":RETURN
  1737. 27360 '
  1738. 27370 '
  1739. 27380 '１面～１０面の音楽
  1740. 27390 '
  1741. 27400 '
  1742. 27410 *MUSICNORMAL
  1743. 27420 T$="Q6@96O4":PLAY T$,T$,T$,T$
  1744. 27430 PLAY "%S7/4T100V4>L8","V4L8","V5L8Q8","V6L8Q8","@8O4V6L4","@41O6V3L16"
  1745. 27440 PD1$="]]D[D[DD16DD16DD":PD2$="]]B[B[BB16BB16BB":PD3$="]]G[G[GG16GG16GG":PD4$="]]E[E[EE16EE16EE"
  1746. 27450 PD1$=PD1$+PD1$:PD2$=PD2$+PD2$:PD3$=PD3$+PD3$:PD4$=PD4$+PD4$
  1747. 27460 PC1$="]]C[C[CC16CC16CC":PC2$="]]A[A[AA16AA16AA":PC3$="]]F[F[FF16FF16FF":PC4$="]]D[D[DD16DD16DD"
  1748. 27470 PC1$=PC1$+PC1$:PC2$=PC2$+PC2$:PC3$=PC3$+PC3$:PC4$=PC4$+PC4$
  1749. 27480 PE1$="]]E[E[EE16EE16EE":PE2$=">]]C[C[CC16CC16CC<":PE3$="]]A[A[AA16AA16AA":PE4$="]]F[F[FF16FF16FF"
  1750. 27490 PE1$=PE1$+PE1$:PE2$=PE2$+PE2$:PE3$=PE3$+PE3$:PE4$=PE4$+PE4$
  1751. 27500 PF1$="]]F[F[FF16FF16FF":PF2$=">]]D[D[DD16DD16DD<":PF3$="]]B[B[BB16BB16BB":PF4$="]]G[G[GG16GG16GG"
  1752. 27510 PF1$=PF1$+PF1$:PF2$=PF2$+PF2$:PF3$=PF3$+PF3$:PF4$=PF4$+PF4$
  1753. 27520 G$="CCCCCCCCCCCCCC":GG$=G$:G$=G$+G$
  1754. 27530 PLAY PD1$,PD2$,PD3$,PD4$,,G$:RETURN
  1755. 27540 PLAY PD1$,PD2$,PD3$,PD4$,"G2..G-2..",G$:RETURN
  1756. 27550 PLAY PD1$,PD2$,PD3$,PD4$,"D1..",G$:RETURN
  1757. 27560 PLAY PD1$,PD2$,PD3$,PD4$,"G2..G-2..",G$:RETURN
  1758. 27570 PLAY PD1$,PD2$,PD3$,PD4$,"D1..",G$:RETURN
  1759. 27580 PLAY PC1$,PC2$,PC3$,PC4$,"D2..E4..F4..",G$:RETURN
  1760. 27590 PLAY PD1$,PD2$,PD3$,PD4$,"E1..",G$:RETURN
  1761. 27600 PLAY PC1$,PC2$,PC3$,PC4$,"D2..E4..F4..",G$:RETURN
  1762. 27610 PLAY PD1$,PD2$,PD3$,PD4$,"G1..",G$:RETURN
  1763. 27620 PLAY PE1$,PE2$,PE3$,PE4$,"G2..A4..A+4..",G$:RETURN
  1764. 27630 PLAY PD1$,PD2$,PD3$,PD4$,"G1..",G$:RETURN
  1765. 27640 PLAY PE1$,PE2$,PE3$,PE4$,"G2..A4..A+4..",G$:RETURN
  1766. 27650 PLAY "FFFF16FF16FFF2..",">DDDD16DD16DDD2..<","BBBB16BB16BBB2..","GGGG16GG16GGG2..","B2..L8V7B8V6B8V5B8V4B8V3B8V2B8V1B8",GG$:RETURN
  1767. 27660 '
  1768. 27670 '
  1769. 27680 '無敵になった時の音楽
  1770. 27690 '
  1771. 27700 '
  1772. 27710 *MUSICMUTEKI
  1773. 27720 PLAY "%S4/4Q8T170@6O4V8","L8@6O3V3","@6O3V3Q8","@6O3V3Q8","@6O3V3"
  1774. 27730 PLAY "L8EDCDEDCD","<G>CEC<G>CEC":RETURN
  1775. 27740 PLAY "EDCDEDCD","<G>CEC<G>CEC":RETURN
  1776. 27750 PLAY "E4E8.E16E2",">C4C8.C16C2","C1","E1","G1":RETURN
  1777. 27760 PLAY "G4G8.G16G2","C4C8.C16C2","C1","E1","G1":RETURN
  1778. 27770 '
  1779. 27780 '
  1780. 27790 'タンマウォッチを使った時の音楽
  1781. 27800 '
  1782. 27810 '
  1783. 27820 *MUSICTANMA
  1784. 27830 PLAY "L8T110@27%S7/8O4Q4"
  1785. 27840 PLAY "D<A>C<A16>D<A16>C<A>":RETURN
  1786. 27850 '
  1787. 27860 '
  1788. 27870 'ゲームオーバーの時の音楽
  1789. 27880 '
  1790. 27890 '
  1791. 27900 *MUSICGAMEOVER
  1792. 27910 PLAY "@30O4T120L4CDEB1&B1","@13A1&A1&A2.","@13A-1&A-1&A-2."
  1793. 27920 RETURN
  1794. 27930 '
  1795. 27940 '
  1796. 27950 'エラー発生時
  1797. 27960 '
  1798. 27970 '
  1799. 27980 *ERA
  1800. 27990 IF ERR=72 THEN SYMBOL(30,30),"ディスクをセットしてください",1,1,7:RESUME
  1801. 28000 IF ERR=63 THEN SYMBOL(30,30),"正しいディスクをセットしてください",1,1,7:RESUME
  1802. 28010 SYMBOL(30,30),"Ｅｒｒｏｒ Ｎｏ"+AKCNV$(STR$(ERR)),1,1,7
  1803. 28020 SYMBOL(30,70),"Ｅｒｒｏｒ Ｉｎ"+AKCNV$(STR$(ERL)),1,1,7
  1804. 28030 IF PTRIG(1)=11 THEN STOP ON:END
  1805. 28040 GOTO 28030
  1806. 28050 '
  1807. 28060 '
  1808. 28070 'プリンを助けた時の音楽
  1809. 28080 '
  1810. 28090 '
  1811. 28100 *MUSICBEND:PLAY OFF:PLAY ON:LOAD@"B:CLASSIC1.PMB"
  1812. 28110 A$="A[A[A[A]]]":A$=A$+A$+A$+A$
  1813. 28120 F$="F[F[F[F]]]":F$=F$+F$+F$+F$
  1814. 28130 E$="E[E[E[E]]]":E$=E$+E$+E$+E$
  1815. 28140 AA$="A+[A+[A+[A+]]]":AA$=AA$+AA$+AA$+AA$
  1816. 28150 G$="G[G[G[G]]]":G$=G$+G$+G$+G$
  1817. 28160 PLAY "%S8/4T120@16L8V4"+A$,"@16L8V4"+F$,,,,,"@2O4V8A1C2D8C8<B8>C8":RETURN
  1818. 28170 PLAY AA$,E$,,,,,"G1<G1":RETURN
  1819. 28180 PLAY AA$,E$,,,,,">G1<G2A8G8G-8G8":RETURN
  1820. 28190 PLAY A$,F$,,,,,">A1&A1","@3V2R1R2E8F8A8>C8","@3V2R1R2C8D8F8A8":RETURN
  1821. 28200 PLAY AA$,G$,,,,,"A+2A2G2A+2","D1E2F2","B-1>C2D2":RETURN
  1822. 28210 PLAY A$,F$,,,,,"T120A2G2F2A2","C1C1","<F1A1":RETURN
  1823. 28220 PLAY E$,G$,,,,,"G1FE2F","<G1G1","C1C1":RETURN
  1824. 28230 PLAY "C","G","@27O3C1L4>C<B-AG",,,,"G1@4R2R8A8G8F8","G1","C1":RETURN
  1825. 28240 T$="@38V15CV5@37CCC":T$=T$+T$+T$+T$
  1826. 28250 PLAY ,"L8"+T$,"L8FFFFFFFFGGGGGGGG",,,,"]]C2F.<A8A+2&A+8A+8>D8<A8","@3O5F1G1","@3O5A1A+1":RETURN
  1827. 28260 PLAY ,"L8"+T$,"L8CCCCCCCCFFFFFFFF",,,,"A+2>D.<A+8A1","C1F1","G1A1":RETURN
  1828. 28270 PLAY ,"L8"+T$,"L8FFFFFFFFGGGGGGGG","@29O4V2C2F.<A8A+2&A+8A+8>D8<A8",,,">C2F.<A8A+2&A+8A+8>D8<A8","@3O5F1G1","@3O5A1A+1":RETURN
  1829. 28280 PLAY ,"L8"+T$,"L8CCCCCCCCFFFFFFFF","A+2>D.E8F1",,,"A+2>D.E8F1","C1F1","G1A1":RETURN
  1830. 28290 PLAY ,"L8"+T$,"L8FFFFFFFFGGGGGGGG","@30O5V4C2F.<A8A+2&A+8A+8>D8<A8",,,"]]]>C2F.<A8A+2&A+8A+8>D8<A8","@3O5F1G1","@3O5A1A+1","@3O3A1A+1","@3O5V2C2F.<A8A+2&A+8A+8>D8<A8":RETURN
  1831. 28300 PLAY ,"L8"+T$,"L8CCCCCCCCFFFFFFFF","A+2>D.<A+8A1",,,"A+2>D.<A+8A1","C1F1","G1A1",">C2G2A1","A+2>D.<A+8A1":RETURN
  1832. 28310 PLAY ,"L8"+T$,"L8FFFFFFFFGGGGGGGG",">C2F.<A8A+2&A+8A+8>D8<A8",,,">C2F.<A8A+2&A+8A+8>D8<A8","@3O5F1G1","@3O5A1A+1","[[A2A6A+6>C6D2<D6E6F6":RETURN
  1833. 28320 PLAY ,"L8"+T$,"L8CCCCCCCCFFFFFFFF","A+2>D.E8F1",,,"A+2>D.E8F1<","C1F2.A","G1A1","G2F2F1":RETURN
  1834. 28330 END
  1835. 28340 '
  1836. 28350 '
  1837. 28360 'カリーナを助けた時の音楽
  1838. 28370 '
  1839. 28380 '
  1840. 28390 *MUSICHIME
  1841. 28400 PLAY "%S8/4Q8@31O4L8T100","@30O3","@30O3","@30O2",,"@26V5O3L4"
  1842. 28410 G$="@38V15C4@37V10R8C8":G$=G$+G$
  1843. 28420 PLAY "E16FG16&G4C16DE4&E16<{AB&B>C&CD&D}2{C&C<BA&AG&G}2","E2C2<A2B2","C2<A2F2G2","G2E2C2D2",G$+G$,"C2<A2F2G2":RETURN
  1844. 28430 PLAY ">E16FG16&G4C16DE4&E16<{AB&B>C&CD&D}2T80C<BAB",">E2C2<A2B2",">C2<A2F2G2","G2E2C2D2",G$+G$,">C2<A2F2G2":RETURN
  1845. 28440 PLAY "T130L4@80V6","@30O4V3L8","V4L8@1O3Q4","V4L8@1O3Q4","@27L8V5O3"
  1846. 28450 C1$="EER4EER4EER4EER4":C2$="CCR4CCR4CCR4CCR4"
  1847. 28460 C3$="CCCCCCCCCCCCCCCC":C4$="@38V15CV10@76C":C4$=C4$+C4$+C4$+C4$
  1848. 28470 CC1$="EER4EER4":CC2$="CCR4CCR4"
  1849. 28480 CC3$="CCCCCCCC@27O3G4>G4D4<G4":CC4$="@38V15CV10@76C":CC4$=CC4$+CC4$+"@37V10C4R4R4R8C8"
  1850. 28490 AA1$="CCR4CCR4":AA2$="<AAR4AAR4>"
  1851. 28500 A1$=AA1$+AA1$:A2$=AA2$+AA2$
  1852. 28510 A3$="<AAAAAAAAAAAAAAAA>"
  1853. 28520 AA3$="<AAAAAAAA>"
  1854. 28530 D1$="FFR4FFR4":D2$="DDR4DDR4"
  1855. 28540 D3$="DDDDDDDD"
  1856. 28550 G1$="<BBR4BBR4>":G2$="<GGR4GGR4>"
  1857. 28560 G3$="<GGGGGGGG>"
  1858. 28570 E1$="EER4EER4":E2$="<BBR4BBR4>"
  1859. 28580 E3$="EEEEEEEE"
  1860. 28590 F1$="AAR4AAR4G+G+R4G+G+R4":F2$="DDR4DDR4DDR4DDR4"
  1861. 28600 F3$="FFFFFFFFFFFFFFFF"
  1862. 28610 PLAY ,,C1$,C2$,C3$,C4$:RETURN
  1863. 28620 PLAY "O4D2<B.>C8<G1","@30O4R1R2C<BAG",C1$,C2$,C3$,C4$:RETURN
  1864. 28630 PLAY ">D2<B.>C8E1","R1.>[[EDCD]]",A1$,A2$,A3$,C4$:RETURN
  1865. 28640 PLAY "D2<B.>C8<G1","R1.C<BAG",C1$,C2$,C3$,C4$:RETURN
  1866. 28650 PLAY ">D2<B.>C8E1",,A1$,A2$,A3$,C4$:RETURN
  1867. 28660 PLAY "F2F6A6F6G2G6B6G6","@80V4O3A2A6>C6<A6B2B6>D6<B6",D1$+G1$,D2$+G2$,D3$+G3$,C4$:RETURN
  1868. 28670 PLAY "E2E6F+6G+6A2A8G8F8E8","G+2G+6A6B6>C2C8<B8A8G8",E1$+AA1$,E2$+AA2$,E3$+AA3$,C4$:RETURN
  1869. 28680 PLAY "D2D6D6E6D2C2","F2F6F6G6F2F2",F1$,F2$,F3$,C4$:RETURN
  1870. 28690 PLAY "C1","E1",CC1$,CC2$,CC3$,CC4$:RETURN
  1871. 28700 END
  1872. 28710 '
  1873. 28720 '
  1874. 28730 'クリアーの時の音楽
  1875. 28740 '
  1876. 28750 '
  1877. 28760 *MUSICCLEAR
  1878. 28770 PLAY "T160","@30O4","@30O4","@30O4","@2"
  1879. 28780 PLAY "V6","V6","V6","V6","V6"
  1880. 28790 PLAY "T160@30O5L8GFEDC2","E1","C1","<G1","L8O4@27C2C2"
  1881. 28800 PLAY "FEDC<B2","D1","<B1","G1","<B2B2"
  1882. 28810 PLAY ">EDC<BA4B>C","C1","A1","E1","A2A2"
  1883. 28820 PLAY "<B2G2","<B1","G1","E1","G2G2"
  1884. 28830 PLAY "A4B>CD4<A4","A1","F1","C1","F2F2"
  1885. 28840 PLAY "G4AB>C4<G4","G1","E1","C1","E2E2"
  1886. 28850 PLAY "G-4A4>C4<G-4","A1","G-1","D1","G-2G-2"
  1887. 28860 PLAY "G1","B1","G1","D1","G1"
  1888. 28870 PLAY "T160@30O5L8GFEDC2","O4E1","O4C1","O4<G1","L8O4@27C2C2"
  1889. 28880 PLAY "V5","V5","V5","V5","V5"
  1890. 28890 PLAY "FEDC<B2","D1","<B1","G1","<B2B2"
  1891. 28900 PLAY "V4","V4","V4","V4","V4"
  1892. 28910 PLAY ">EDC<BA4B>C","C1","A1","E1","A2A2"
  1893. 28920 PLAY "V3","V3","V3","V3","V3"
  1894. 28930 PLAY "<B2G2","<B1","G1","E1","G2G2"
  1895. 28940 PLAY "V2","V2","V2","V2","V2"
  1896. 28950 PLAY "A4B>CD4<A4","A1","F1","C1","F2F2"
  1897. 28960 PLAY "V1","V1","V1","V1","V1"
  1898. 28970 PLAY "G4AB>C4<G4","G1","E1","C1","E2E2"
  1899. 28980 PLAY "@V5","@V5","@V5","@V5","@V5"
  1900. 28990 PLAY "G-4A4>C4<G-4","A1","G-1","D1","G-2G-2"
  1901. 29000 PLAY "@V1","@V1","@V1","@V1","@V1"
  1902. 29010 PLAY "G1","B1","G1","D1","G1"
  1903. 29020 RETURN
  1904. 29030 END
  1905. 29040 '
  1906. 29050 '     *******************************************************
  1907. 29060 '     **                                                   **
  1908. 29070 '     **     Ｓ Ｔ Ａ Ｇ Ｅ　１                            **
  1909. 29080 '     **                                                   **
  1910. 29090 '     ******************************************************* 
  1911. 29100 '
  1912. 29110 '
  1913. 29120 '
  1914. 29130 '            背景の種類
  1915. 29140 DATA         1
  1916. 29150 '
  1917. 29160 '            制限時間
  1918. 29170 DATA         120
  1919. 29180 '
  1920. 29190 '            姫の位置  姫の種類  姫の向き
  1921. 29200 DATA         8,7,      1,        2
  1922. 29210 '
  1923. 29220 '            アイティムの数
  1924. 29230 DATA         2 
  1925. 29240 '
  1926. 29250 '            一個目のアイティムのパラメーター 
  1927. 29260 '            属性  中身  位置
  1928. 29270 DATA         0,    2,    14,2
  1929. 29280 '
  1930. 29290 '            二個目のアイティムのパラメーター 
  1931. 29300 '            属性  中身  位置
  1932. 29310 DATA         0,    9,    14,12
  1933. 29320 '
  1934. 29330 '            鍵のパラメーター
  1935. 29340 '            属性  種類  位置
  1936. 29350 DATA         2,    1,    2,8
  1937. 29360 '
  1938. 29370 '            パピッドの数
  1939. 29380 DATA         2
  1940. 29390 '
  1941. 29400 '            卵の時間
  1942. 29410 '            卵一  卵二  割れている
  1943. 29420 DATA         30,   30,   5 
  1944. 29430 '
  1945. 29440 '            一匹目のパピッドのパラメーター
  1946. 29450 '            種類  性格  回り込み  初期位置  ノンアピアー
  1947. 29460 DATA         0,    1,    0,        7,2,      40
  1948. 29470 '
  1949. 29480 '            二匹目のパピッドのパラメーター
  1950. 29490 '            種類  性格  回り込み  初期位置  ノンアピアー
  1951. 29500 DATA         0,    1,    0,        7,12,     60
  1952. 29510 '
  1953. 29520 '            エステドルの数
  1954. 29530 DATA         0
  1955. 29540 '
  1956. 29550 '
  1957. 29560 '
  1958. 29570 '
  1959. 29580 '     *******************************************************
  1960. 29590 '     **                                                   **
  1961. 29600 '     **     Ｓ Ｔ Ａ Ｇ Ｅ　２                            **
  1962. 29610 '     **                                                   **
  1963. 29620 '     ******************************************************* 
  1964. 29630 '
  1965. 29640 '            背景の種類
  1966. 29650 DATA         1
  1967. 29660 '
  1968. 29670 '            制限時間
  1969. 29680 DATA         120
  1970. 29690 '
  1971. 29700 '            姫の位置  姫の種類  姫の向き
  1972. 29710 DATA         2,7,      1,        2
  1973. 29720 '
  1974. 29730 '            アイティムの数
  1975. 29740 DATA         2 
  1976. 29750 '
  1977. 29760 '            一個目のアイティムのパラメーター 
  1978. 29770 '            属性  中身  位置
  1979. 29780 DATA         0,    5,    3,5
  1980. 29790 '
  1981. 29800 '            二個目のアイティムのパラメーター 
  1982. 29810 '            属性  中身  位置
  1983. 29820 DATA         0,    4,    3,9
  1984. 29830 '
  1985. 29840 '            鍵のパラメーター
  1986. 29850 '            属性  種類  位置
  1987. 29860 DATA         2,    1,    12,11
  1988. 29870 '
  1989. 29880 '            パピッドの数
  1990. 29890 DATA         2
  1991. 29900 '
  1992. 29910 '            卵の時間
  1993. 29920 '            卵一  卵二  割れている
  1994. 29930 DATA         30,   30,   5 
  1995. 29940 '
  1996. 29950 '            一匹目のパピッドのパラメーター
  1997. 29960 '            種類  性格  回り込み  初期位置  ノンアピアー
  1998. 29970 DATA         0,    1,    0,        5,3,      40
  1999. 29980 '
  2000. 29990 '            二匹目のパピッドのパラメーター
  2001. 30000 '            種類  性格  回り込み  初期位置  ノンアピアー
  2002. 30010 DATA         0,    1,    0,        5,11,     60
  2003. 30020 '
  2004. 30030 '            エステドルの数
  2005. 30040 DATA         0
  2006. 30050 '
  2007. 30060 '
  2008. 30070 '
  2009. 30080 '
  2010. 30090 '
  2011. 30100 '     *******************************************************
  2012. 30110 '     **                                                   **
  2013. 30120 '     **     Ｓ Ｔ Ａ Ｇ Ｅ　３                            **
  2014. 30130 '     **                                                   **
  2015. 30140 '     ******************************************************* 
  2016. 30150 '
  2017. 30160 '            背景の種類
  2018. 30170 DATA         1
  2019. 30180 '
  2020. 30190 '            制限時間
  2021. 30200 DATA         120
  2022. 30210 '
  2023. 30220 '            姫の位置  姫の種類  姫の向き
  2024. 30230 DATA         12,5,     1,        2
  2025. 30240 '
  2026. 30250 '            アイティムの数
  2027. 30260 DATA         3 
  2028. 30270 '
  2029. 30280 '            一個目のアイティムのパラメーター 
  2030. 30290 '            属性  中身  位置
  2031. 30300 DATA         4,    0,    13,11
  2032. 30310 '
  2033. 30320 '            二個目のアイティムのパラメーター 
  2034. 30330 '            属性  中身  位置
  2035. 30340 DATA         0,    6,    4,12
  2036. 30350 '
  2037. 30360 '            三個目のアイティムのパラメーター 
  2038. 30370 '            属性  中身  位置
  2039. 30380 DATA         0,    1,    4,2
  2040. 30390 '
  2041. 30400 '            鍵のパラメーター
  2042. 30410 '            属性  種類  位置
  2043. 30420 DATA         2,    1,    12,8
  2044. 30430 '
  2045. 30440 '            パピッドの数
  2046. 30450 DATA         1
  2047. 30460 '
  2048. 30470 '            卵の時間
  2049. 30480 '            卵一  卵二  割れている
  2050. 30490 DATA         30,   30,   5 
  2051. 30500 '
  2052. 30510 '            一匹目のパピッドのパラメーター
  2053. 30520 '            種類  性格  回り込み  初期位置  ノンアピアー
  2054. 30530 DATA         0,    2,    0,        4,4,      40
  2055. 30540 '
  2056. 30550 '            エステドルの数
  2057. 30560 DATA         1
  2058. 30570 '
  2059. 30580 '            卵の時間
  2060. 30590 '            卵一  卵二  割れている
  2061. 30600 DATA         30,   30,   5 
  2062. 30610 '
  2063. 30620 '            一匹目のえすてどるのパラメーター
  2064. 30630 '            種類  性格  回り込み  初期位置  ノンアピアー
  2065. 30640 DATA                               4,8,      100
  2066. 30650 '
  2067. 30660 '
  2068. 30670 '
  2069. 30680 '
  2070. 30690 '
  2071. 30700 '
  2072. 30710 '
  2073. 30720 '     *******************************************************
  2074. 30730 '     **                                                   **
  2075. 30740 '     **     Ｓ Ｔ Ａ Ｇ Ｅ　４                            **
  2076. 30750 '     **                                                   **
  2077. 30760 '     ******************************************************* 
  2078. 30770 '
  2079. 30780 '            背景の種類
  2080. 30790 DATA         1
  2081. 30800 '
  2082. 30810 '            制限時間
  2083. 30820 DATA         120
  2084. 30830 '
  2085. 30840 '            姫の位置  姫の種類  姫の向き
  2086. 30850 DATA         2,8,      1,        2
  2087. 30860 '
  2088. 30870 '            アイティムの数
  2089. 30880 DATA         2 
  2090. 30890 '
  2091. 30900 '            一個目のアイティムのパラメーター 
  2092. 30910 '            属性  中身  位置
  2093. 30920 DATA         4,    7,    3,9
  2094. 30930 '
  2095. 30940 '            二個目のアイティムのパラメーター 
  2096. 30950 '            属性  中身  位置
  2097. 30960 DATA         0,    5,    14,8
  2098. 30970 '
  2099. 30980 '            鍵のパラメーター
  2100. 30990 '            属性  種類  位置
  2101. 31000 DATA         0,    1,    14,2
  2102. 31010 '
  2103. 31020 '            パピッドの数
  2104. 31030 DATA         1
  2105. 31040 '
  2106. 31050 '            卵の時間
  2107. 31060 '            卵一  卵二  割れている
  2108. 31070 DATA         30,   30,   5 
  2109. 31080 '
  2110. 31090 '            一匹目のパピッドのパラメーター
  2111. 31100 '            種類  性格  回り込み  初期位置  ノンアピアー
  2112. 31110 DATA         0,    1,    0,        3,7,      40
  2113. 31120 '
  2114. 31130 '            エステドルの数
  2115. 31140 DATA         1
  2116. 31150 '
  2117. 31160 '            卵の時間
  2118. 31170 '            卵一  卵二  割れている
  2119. 31180 DATA         30,   30,   5 
  2120. 31190 '
  2121. 31200 '            一匹目のえすてどるのパラメーター
  2122. 31210 '            種類  性格  回り込み  初期位置  ノンアピアー
  2123. 31220 DATA                               3,8       ,100
  2124. 31230 '
  2125. 31240 '
  2126. 31250 '
  2127. 31260 '
  2128. 31270 '
  2129. 31280 '
  2130. 31290 '
  2131. 31300 '     *******************************************************
  2132. 31310 '     **                                                   **
  2133. 31320 '     **     Ｓ Ｔ Ａ Ｇ Ｅ　５                            **
  2134. 31330 '     **                                                   **
  2135. 31340 '     ******************************************************* 
  2136. 31350 '
  2137. 31360 '            背景の種類
  2138. 31370 DATA         1
  2139. 31380 '
  2140. 31390 '            制限時間
  2141. 31400 DATA         120
  2142. 31410 '
  2143. 31420 '            姫の位置  姫の種類  姫の向き
  2144. 31430 DATA         3 ,2,     1,        2
  2145. 31440 '
  2146. 31450 '            アイティムの数
  2147. 31460 DATA         3 
  2148. 31470 '
  2149. 31480 '            一個目のアイティムのパラメーター 
  2150. 31490 '            属性  中身  位置
  2151. 31500 DATA         0,    2,    4,12
  2152. 31510 '
  2153. 31520 '            二個目のアイティムのパラメーター 
  2154. 31530 '            属性  中身  位置
  2155. 31540 DATA         1,    8,    3,11
  2156. 31550 '
  2157. 31560 '            三個目のアイティムのパラメーター 
  2158. 31570 '            属性  中身  位置
  2159. 31580 DATA         1,    0,    2,10
  2160. 31590 '
  2161. 31600 '            鍵のパラメーター
  2162. 31610 '            属性  種類  位置
  2163. 31620 DATA         2,    1,    2,6
  2164. 31630 '
  2165. 31640 '            パピッドの数
  2166. 31650 DATA         2
  2167. 31660 '
  2168. 31670 '            卵の時間
  2169. 31680 '            卵一  卵二  割れている
  2170. 31690 DATA         30,   30,   5 
  2171. 31700 '
  2172. 31710 '            一匹目のパピッドのパラメーター
  2173. 31720 '            種類  性格  回り込み  初期位置  ノンアピアー
  2174. 31730 DATA         0,    2,    0,        4,2,      40
  2175. 31740 '
  2176. 31750 '            二匹目のパピッドのパラメーター
  2177. 31760 '            種類  性格  回り込み  初期位置  ノンアピアー
  2178. 31770 DATA         2,    2,    0,        5,2,      40
  2179. 31780 '
  2180. 31790 '            エステドルの数
  2181. 31800 DATA         0
  2182. 31810 '
  2183. 31820 '
  2184. 31830 '
  2185. 31840 '
  2186. 31850 '
  2187. 31860 '
  2188. 31870 '
  2189. 31880 '
  2190. 31890 '     *******************************************************
  2191. 31900 '     **                                                   **
  2192. 31910 '     **     Ｓ Ｔ Ａ Ｇ Ｅ　６                            **
  2193. 31920 '     **                                                   **
  2194. 31930 '     ******************************************************* 
  2195. 31940 '
  2196. 31950 '            背景の種類
  2197. 31960 DATA         1
  2198. 31970 '
  2199. 31980 '            制限時間
  2200. 31990 DATA         120
  2201. 32000 '
  2202. 32010 '            姫の位置  姫の種類  姫の向き
  2203. 32020 DATA         9,6,      1,        2
  2204. 32030 '
  2205. 32040 '            アイティムの数
  2206. 32050 DATA         2 
  2207. 32060 '
  2208. 32070 '            一個目のアイティムのパラメーター 
  2209. 32080 '            属性  中身  位置
  2210. 32090 DATA         0,    6,    2,3
  2211. 32100 '
  2212. 32110 '            二個目のアイティムのパラメーター 
  2213. 32120 '            属性  中身  位置
  2214. 32130 DATA         4,    5,    2,11
  2215. 32140 '
  2216. 32150 '
  2217. 32160 '            鍵のパラメーター
  2218. 32170 '            属性  種類  位置
  2219. 32180 DATA         2,    1,    2,7
  2220. 32190 '
  2221. 32200 '            パピッドの数
  2222. 32210 DATA         0
  2223. 32220 '
  2224. 32230 '
  2225. 32240 '            エステドルの数
  2226. 32250 DATA         2
  2227. 32260 '
  2228. 32270 '            卵の時間
  2229. 32280 '            卵一  卵二  割れている
  2230. 32290 DATA         30,   30,   5 
  2231. 32300 '
  2232. 32310 '            一匹目のえすてどるのパラメーター
  2233. 32320 '            種類  性格  回り込み  初期位置  ノンアピアー
  2234. 32330 DATA                               3,2       ,100
  2235. 32340 '
  2236. 32350 '            二匹目のえすてどるのパラメーター
  2237. 32360 '            種類  性格  回り込み  初期位置  ノンアピアー
  2238. 32370 DATA                               3,12      ,50 
  2239. 32380 '
  2240. 32390 '
  2241. 32400 '     *******************************************************
  2242. 32410 '     **                                                   **
  2243. 32420 '     **     Ｓ Ｔ Ａ Ｇ Ｅ　７                            **
  2244. 32430 '     **                                                   **
  2245. 32440 '     ******************************************************* 
  2246. 32450 '
  2247. 32460 '            背景の種類
  2248. 32470 DATA         1
  2249. 32480 '
  2250. 32490 '            制限時間
  2251. 32500 DATA         120
  2252. 32510 '
  2253. 32520 '            姫の位置  姫の種類  姫の向き
  2254. 32530 DATA         2,6,      1,        2
  2255. 32540 '
  2256. 32550 '            アイティムの数
  2257. 32560 DATA         3 
  2258. 32570 '
  2259. 32580 '            一個目のアイティムのパラメーター 
  2260. 32590 '            属性  中身  位置
  2261. 32600 DATA         0,    6,    2,4
  2262. 32610 '
  2263. 32620 '            二個目のアイティムのパラメーター 
  2264. 32630 '            属性  中身  位置
  2265. 32640 DATA         0,    2,    2,8
  2266. 32650 '
  2267. 32660 '            三個目のアイティムのパラメーター 
  2268. 32670 '            属性  中身  位置
  2269. 32680 DATA         0,    9,    14,12
  2270. 32690 '
  2271. 32700 '
  2272. 32710 '
  2273. 32720 '            鍵のパラメーター
  2274. 32730 '            属性  種類  位置
  2275. 32740 DATA         2,    1,    2,2
  2276. 32750 '
  2277. 32760 '            パピッドの数
  2278. 32770 DATA         2
  2279. 32780 '
  2280. 32790 '            卵の時間
  2281. 32800 '            卵一  卵二  割れている
  2282. 32810 DATA         10,   10,   5 
  2283. 32820 '
  2284. 32830 '            一匹目のパピッドのパラメーター
  2285. 32840 '            種類  性格  回り込み  初期位置  ノンアピアー
  2286. 32850 DATA         2,    2,    0,        2,5,      40
  2287. 32860 '
  2288. 32870 '            二匹目のパピッドのパラメーター
  2289. 32880 '            種類  性格  回り込み  初期位置  ノンアピアー
  2290. 32890 DATA         2,    2,    0,        2,7,      80
  2291. 32900 '
  2292. 32910 '
  2293. 32920 '            エステドルの数
  2294. 32930 '
  2295. 32940 DATA         0
  2296. 32950 '
  2297. 32960 '
  2298. 32970 '     *******************************************************
  2299. 32980 '     **                                                   **
  2300. 32990 '     **     Ｓ Ｔ Ａ Ｇ Ｅ　８                            **
  2301. 33000 '     **                                                   **
  2302. 33010 '     ******************************************************* 
  2303. 33020 '
  2304. 33030 '            背景の種類
  2305. 33040 DATA         1
  2306. 33050 '
  2307. 33060 '            制限時間
  2308. 33070 DATA         120
  2309. 33080 '
  2310. 33090 '            姫の位置  姫の種類  姫の向き
  2311. 33100 DATA         3,6,      1,        2
  2312. 33110 '
  2313. 33120 '            アイティムの数
  2314. 33130 DATA         3 
  2315. 33140 '
  2316. 33150 '            一個目のアイティムのパラメーター 
  2317. 33160 '            属性  中身  位置
  2318. 33170 DATA         4,    10,    5,5
  2319. 33180 '
  2320. 33190 '            二個目のアイティムのパラメーター 
  2321. 33200 '            属性  中身  位置
  2322. 33210 DATA         0,    9,    5,9
  2323. 33220 '
  2324. 33230 '            三個目のアイティムのパラメーター 
  2325. 33240 '            属性  中身  位置
  2326. 33250 DATA         0,    1,    14,7
  2327. 33260 '
  2328. 33270 '
  2329. 33280 '            鍵のパラメーター
  2330. 33290 '            属性  種類  位置
  2331. 33300 DATA         2,    1,    3,8
  2332. 33310 '
  2333. 33320 '            パピッドの数
  2334. 33330 DATA         1
  2335. 33340 '
  2336. 33350 '            卵の時間
  2337. 33360 '            卵一  卵二  割れている
  2338. 33370 DATA         10,   10,   5 
  2339. 33380 '
  2340. 33390 '            一匹目のパピッドのパラメーター
  2341. 33400 '            種類  性格  回り込み  初期位置  ノンアピアー
  2342. 33410 DATA         1,    1,    0,        4,7,      40
  2343. 33420 '
  2344. 33430 '            エステドルの数
  2345. 33440 DATA         2
  2346. 33450 '
  2347. 33460 '            卵の時間
  2348. 33470 '            卵一  卵二  割れている
  2349. 33480 DATA         30,   30,   5 
  2350. 33490 '
  2351. 33500 '            一匹目のえすてどるのパラメーター
  2352. 33510 '            種類  性格  回り込み  初期位置  ノンアピアー
  2353. 33520 DATA                               4,5       ,100
  2354. 33530 '
  2355. 33540 '            二匹目のえすてどるのパラメーター
  2356. 33550 '            種類  性格  回り込み  初期位置  ノンアピアー
  2357. 33560 DATA                               4,9       ,50 
  2358. 33570 '
  2359. 33580 '
  2360. 33590 '     *******************************************************
  2361. 33600 '     **                                                   **
  2362. 33610 '     **     Ｓ Ｔ Ａ Ｇ Ｅ　９                            **
  2363. 33620 '     **                                                   **
  2364. 33630 '     ******************************************************* 
  2365. 33640 '
  2366. 33650 '            背景の種類
  2367. 33660 DATA         1
  2368. 33670 '
  2369. 33680 '            制限時間
  2370. 33690 DATA         120
  2371. 33700 '
  2372. 33710 '            姫の位置  姫の種類  姫の向き
  2373. 33720 DATA         9,13,     1,        2
  2374. 33730 '
  2375. 33740 '            アイティムの数
  2376. 33750 DATA         0 
  2377. 33760 '
  2378. 33770 '            鍵のパラメーター
  2379. 33780 '            属性  種類  位置
  2380. 33790 DATA         2,    1,    6,6
  2381. 33800 '
  2382. 33810 '            パピッドの数
  2383. 33820 DATA         2
  2384. 33830 '
  2385. 33840 '            卵の時間
  2386. 33850 '            卵一  卵二  割れている
  2387. 33860 DATA         10,   10,   5 
  2388. 33870 '
  2389. 33880 '            一匹目のパピッドのパラメーター
  2390. 33890 '            種類  性格  回り込み  初期位置  ノンアピアー
  2391. 33900 DATA         1,    2,    0,        8,3,      40
  2392. 33910 '
  2393. 33920 '            二匹目のパピッドのパラメーター
  2394. 33930 '            種類  性格  回り込み  初期位置  ノンアピアー
  2395. 33940 DATA         2,    2,    0,        13,12,    40
  2396. 33950 '
  2397. 33960 '            エステドルの数
  2398. 33970 DATA         1
  2399. 33980 '
  2400. 33990 '            卵の時間
  2401. 34000 '            卵一  卵二  割れている
  2402. 34010 DATA         30,   30,   5 
  2403. 34020 '
  2404. 34030 '            一匹目のえすてどるのパラメーター
  2405. 34040 '            種類  性格  回り込み  初期位置  ノンアピアー
  2406. 34050 DATA                               5,9       ,100
  2407. 34060 '
  2408. 34070 '
  2409. 34080 '
  2410. 34090 '     *******************************************************
  2411. 34100 '     **                                                   **
  2412. 34110 '     **     Ｓ Ｔ Ａ Ｇ Ｅ　１０                          **
  2413. 34120 '     **                                                   **
  2414. 34130 '     ******************************************************* 
  2415. 34140 '
  2416. 34150 '            背景の種類
  2417. 34160 DATA         1
  2418. 34170 '
  2419. 34180 '            制限時間
  2420. 34190 DATA         120
  2421. 34200 '
  2422. 34210 '            姫の位置  姫の種類  姫の向き
  2423. 34220 DATA         12,13,     1,        2
  2424. 34230 '
  2425. 34240 '            アイティムの数
  2426. 34250 DATA         2 
  2427. 34260 '
  2428. 34270 '            一個目のアイティムのパラメーター 
  2429. 34280 '            属性  中身  位置
  2430. 34290 DATA         1,    3,     2,8
  2431. 34300 '
  2432. 34310 '            二個目のアイティムのパラメーター 
  2433. 34320 '            属性  中身  位置
  2434. 34330 DATA         0,    4,     3,9
  2435. 34340 '
  2436. 34350 '            鍵のパラメーター
  2437. 34360 '            属性  種類  位置
  2438. 34370 DATA         2,    1,    4,12
  2439. 34380 '
  2440. 34390 '
  2441. 34400 '            パピッドの数
  2442. 34410 DATA         4
  2443. 34420 '
  2444. 34430 '            卵の時間
  2445. 34440 '            卵一  卵二  割れている
  2446. 34450 DATA         10,   10,   5 
  2447. 34460 '
  2448. 34470 '            一匹目のパピッドのパラメーター
  2449. 34480 '            種類  性格  回り込み  初期位置  ノンアピアー
  2450. 34490 DATA         0,    1,    0,        3,8,      40
  2451. 34500 '
  2452. 34510 '            二匹目のパピッドのパラメーター
  2453. 34520 '            種類  性格  回り込み  初期位置  ノンアピアー
  2454. 34530 DATA         0,    1,    0,        4,9,      40
  2455. 34540 '
  2456. 34550 '            三匹目のパピッドのパラメーター
  2457. 34560 '            種類  性格  回り込み  初期位置  ノンアピアー
  2458. 34570 DATA         0,    2,    0,        6,1,      40
  2459. 34580 '
  2460. 34590 '            四匹目のパピッドのパラメーター
  2461. 34600 '            種類  性格  回り込み  初期位置  ノンアピアー
  2462. 34610 DATA         0,    2,    0,        10,1,     40
  2463. 34620 '
  2464. 34630 '            エステドルの数
  2465. 34640 DATA         0
  2466. 34650 '
  2467. 34660 '
  2468. 34670 '
  2469. 34680 '
  2470. 34690 '
  2471. 34700 '     *******************************************************
  2472. 34710 '     **                                                   **
  2473. 34720 '     **     Ｓ Ｔ Ａ Ｇ Ｅ　１１                          **
  2474. 34730 '     **                                                   **
  2475. 34740 '     ******************************************************* 
  2476. 34750 '
  2477. 34760 '            背景の種類
  2478. 34770 DATA         1
  2479. 34780 '
  2480. 34790 '            制限時間
  2481. 34800 DATA         300
  2482. 34810 '
  2483. 34820 '            姫の位置  姫の種類  姫の向き
  2484. 34830 DATA         6,7,      0,        2
  2485. 34840 '
  2486. 34850 '            アイティムの数
  2487. 34860 DATA         1 
  2488. 34870 '
  2489. 34880 '            一個目のアイティムのパラメーター 
  2490. 34890 '            属性  中身  位置
  2491. 34900 DATA         0,    2,     8,2
  2492. 34910 '
  2493. 34920 '            鍵のパラメーター
  2494. 34930 '            属性  種類  位置
  2495. 34940 DATA         2,    1,    4,12
  2496. 34950 '
  2497. 34960 '            パピッドの数
  2498. 34970 DATA         0
  2499. 34980 '
  2500. 34990 '            エステドルの数
  2501. 35000 DATA         0
  2502. 35010 '
  2503.